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prólogo 


En LA actualidad, son ya muchas las personas que poseen un mi- 
croordenador personal en sus casas, pero generalmente, se limitan en la - 
mayoría de las ocasiones, a utilizar el micro únicamente para la ejecución 
de juegos, y pocas cosas más; ya que cuando tratan de realizar sus propios 
programas, se encuentran, muchas veces, con grandes dificultades, producien 
doles un sentimiento de incapacidad, que con frecuencia, les lleva a dejar 


a un lado al microordenador. 


Ahora bien, de la misma forma que todos estamos familiarizados 
a conducir un vehículo, ver la televisión, oir un transistor, etc, y no por 
ello, conocemos con profundidad como funciona el motor de un coche, o como 
es posible que lleguen hasta nuestra casa imágenes que se están produciendo 
a miles de kilómetros, o que complicados mecanismos hacen que una cajita pe 
queña, nos permitan oir voces que se emiten a cientos de kilómetros, etc, 
pues bien, de la misma forma, debe ser posible utilizar nuestro microordena 
dor, sin tener grandes conocimientos de informática, sin más que servirnos 


de los programas que otras personas realizan para nosotros. 


Es esta una de las ideas iniciales que nos indujo a la realiza- 
ción de este libro, junto con la consideración de que la producción en Es- 
paña de sofware es muy reducida y practicamente se restringe a programas de 
contabilidad, cálculo de estructuras, etc, o programas aislados de Matemáti 
cas que generalmente, están traducidos del inglés, y que en muchas ocasio- 


nes son de dudosa utilidad. 


Por ello y por nuestra relación con el mundo de las Matemáticas 
nos ha parecido muy interesante aplicar el micro a multitud de situaciones 


concretas, con las que se enfrenta un estudiante en la soledad de su cuarto. 


7 
1 Asi por ejemplo, calcular: y 2 E 3 o bien hallar el valor 
de / 


e* sen x dx, O hallar los parámetros estadísticos que caracteri- 


lo) ' ] ¿a Ls A 
zan a una distribución unidimensional de datos agrupados, etc. 


a El alumno realiza el ejercicio pero, en muchas ocasiones, no 
sabe si está bien, cuando tiene a su lado un "trasto" (microordenador) que 
convenientemente programado le puede servir de "profesor particular" guian 
dole en sus éxitos y mostrándole sus errores. Además de esta manera, puede 
familiarizarse con procedimientos que, a pesar de muchos, han de implantar 
se con carácter generalizado en la enseñanza. 


Si además el usuario es de aquellos que empiezan a ser capaces 
de realizar sus propios programas, estos listados le pueden servir de guía 
y ejemplo, que con certeza, pronto será capaz de mejorarlos y hacerlos más 


suyos. 


Asi pues, este libro se ha iniciado con el Análisis Matemático 
seguido del Cálculo de Probabilidades y la Estadística desarrollando sis- 
temáticamente aquellas cuestiones que, con más frecuencia, se utilizan y 
que se hacen más susceptibles de ser tratadas con los microordenadores per 
sonales.. 


Ya desde estas páginas, anunciamos la próxima aparición de otro 


libro dedicado al Algebra y la Geometría, con una "filosofía" totalmente 


análoga a este. 


Por último nos queda pedir disculpas por los errores tipográfi- 
cos que se hayan podido "escapar", asi como los de programación, aceptando 
de antemano, con mucho gusto, todas las sugerencias que se nos hagan en es 


te sentido. 


El autor 


advertencias de interés 


Los programas de este libro han sido probados y ejecuta 
dos en un microordenador NEW BRAIN, pero todos ellos pueden ser rea 


lizados, en cuanto a su extensión, en cualquier micro. 


Hemos procurado utilizar un BASIC común a todos los mi- 
cros, con el fin de que estos programas puedan ser ejecutados en 
cualquier microordenador de los existentes actualmente en el merca 
do, pero es posible, que en algunos programas sea necesario, intro 
ducir algunas modificaciones con arreglo al BASIC concreto de su 


micro. 


Por ello vamos a exponer a continuación algunas de estas 
ideas. 
1.- LET: Hoy en dia es muy frecuente en casi todos los microordena- 
dores, poder hacer asignación de variables en la forma: 
120 A= B*C 
pero todavía existen algunos micros, para los que es necesario 
escribir: 120 LET A = B*C 


2.- ON GOTO : Si por ejemplo en una linea figura: 
50 ON L GOTO 100,200,300 
quiere decir que, según L sea igual a 1, 2 6 3, se transferirá 
la ejecución a las lineas 100, 200 á 300. Como algunos micros 
no permiten esta instrucción de bifurcación múltiple, se puede 
cambiar por: 50 IF L=1 THEN GOTO 100 
52 IF L=2 THEN GOTO 200 


54 IF L=3 THEN GOTO 300 


3..= IF THEN : Algunos ordenadores solo admiten después de IF 
THEN, poner GOTO n*de linea, en cambio alaunos permiten hacer: 
60 IF B=1 THEN PRINT A 
o también 80 IF A=3 THEN L=A*B : 
En estos programas se ha utilizado en escasas ocasiones esta úl 
tima posibilidad, si su aparato no lo admite, modifíquelo con 


arreglo a lo expuesto. 


4.- La función RND, no se utiliza del mismo modo en todo los micros, 


por ello repase con cuidado el manual del suyo. 


5.- Se ha procurado casi siempre, incluir en cada linea una única 


instrucción, pero en algunas ocasiones hemos puesto: 


100 PRINT: A=0 

Si su ordenador no lo permite, modifiquelo del siguiente modo: 
100 PRINT 
102 A=0 


6.- En algunas ejecuciones se han obtenido resultados como: 
1.5436783E-9, o bien -3.45243546E-12, evidentemente estos nú 
meros son aproximaciones al número cero. Asi pues, como tal he 


mos de tomar estos valores. 


7.- Se ha procurado que los programas sean cortos y sencillos, aho 
ra bien se podrían mejorar desde el punto de vista informático 
pero probablemente, perderían claridad desde el punto de vista 
matemático. 


8.- Intencionadamente, no se ha incluido ningún programa sobre grá 
ficos, dado que las instrucciones sobre gráficos, difieren mu- 


cho de unos ordenadores a otros. 


9.- En general, no se ha incluido ninguna sentencia sobre el "borra 
do de la pantalla", para que sea el usuario el que en cada caso 


utilize esa posibilidad a su gusto. 


10.- Si lo desea puede omitir todas las lineas que empiezan por REM 
ya que unicamente sirven para proporcionar información sobre el 


programa , pero el micro no las lee y además ocupan memoria. 


11.- En caso de que, tras escribir cuidadosamente el programa y al 
ejecutar este, les proporcione mensaje de error, O resultados 
sensiblemente distintos, revise nuevamente, linea a linea, ca- 
rácter a carácter, su listado y el del libro, revise las adver 
tencias anteriores, tenga cuidado en no confundir cero con O, 

1l con I, 2 con 2, 5 con S, y U con V., después de todo esto 
el programa deberá funcionar. Si a pesar de todo, el programa 
no "funciona", le aconsejamos que: lo deje de momento, para con 
tinuar con ello al cabo de unas horas, o bien lo revise con 
otra persona, o lo ponga en manos de alguien que sea capaz de. 
detectar el fallo, pues generalmente será muy fácil, pero a ve 
ces, pueden ser extraordinariamente sutiles. Únicamente con mu 
cha experiencia, habilidad y conocimiento profundo del BASIC de 


su micro será posible detectar estas sutilezas. 


Ahora bien, esperamos que estas últimas advertencias no le ocurran 
prácticamente nunca, y deseamos que pueda Vd disfrutar de su micro 


sacándole todo el partido posible. 
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INTERES SIMPLE 


introducción: 


Este programa sirve para calcular el capital final CF, en que se con 
vierte un capital inicial CI, colocado al interés simple, siendo R el tanto 
por ciento anual, y T el número de años. | 
La expresión del capital final a interés simple anual es la, siguiente: 

CF = CI (1 + R T/100) 

Este programa permite hallar,igualmente,el capital final colocado a 

interés simple mensual o diario, con arreglo a las siguientes expresiones: 
CF = CI (1 + R M/1200) (M = n*de meses) 
CF = CI (1 + R D/36000) (D = n*de dias) 


listado del programa: 


10 REM RRA OOOO OIR RIOR RR ARANA 
20 REM 

30 REM IN TE RES 35SIMPLE 

90 REM E 

50 REM ANUAL NHENSUAL Y DIARIO 

60 REM 

70 REM IRRORSOORROODOOARANARRORRRRORORORORARDOREARRADRAROROAOIOAOO OOOO 
100 PRINT 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :" 

120 PRINT 

130 PRINT 

1902 PRINT * 1 INTERES SIMPLE ANUAL" 

150 PRINT ” 2.- INTERES SIMPLE MENSUAL” 

160 PRINT " 3.- INTERES SIMPLE DIARIO” 

170 PRINT 

120 PRINT 


1900 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT P 

210 ON P GOTO 219,319,419 

219 REM - CALCULO DEL INTERES SIMPLE ANUAL - 

220 PRINT "CAPITAL INICIAL CI ="; 

30 INPUT CI 

240 PRINT "TANTO POR CIENTO ANUAL R ="; 

250 INPUT R 

260 PRINT "NUMERO DE ANOS T 


' 
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INPUT T 

CF= CIX(1+RXT/100) 

PRINT 

PRINT "EL CAPITAL FINAL AL CABO DE";T;"AÑOS ES : CF ="5CF 
GOTO 320 


REM - CALCULO DEL INTERES SIMPLE MENSUAL - 
PRINT "CAFITAL INICIAL CI ="; 

INPUT CI 

PRINT "TANTO FOR CIENTO ANUAL R ="; 

INPUT R 

PRINT "NUMERO DE MESES M="; 

INPUT M 

CF= CIX(1+RXM/1200) 

PRINT 

PRINT "EL CAPITAL FINAL AL CABO DE"3M3"MESES ES : CF ="3CF 
GOTO 520 

REM - CALCULO DEL INTERES SIMPLE DIARIO - 
PRINT "CAFITAL INICIAL Cl ="; 


INFUT CI 

PRINT "TANTO POR CIENTO ANUAL -R ="5 

INPUT E 

PRINT "NUMERO TE DIAS D=-="; 

INPUT D 

CF= CIX(14RXAD-36009 

PRINT 

PRINT "EL CAPITAL FINAL AL CABO DE"3D; "DIAS ES : CF =";3CF 
GOTO 520 

REM - PARA REALIZAR MAS CALCULOS 

PRIMT 

PRINT 

PRINT 

PRINT 

PRINT "DESEA CONTINUAR REALIZANDO OTRAS OUFRCIONES 7 S/N" 
INPUT C$ 

IF Cé="N" THEN GUTC ¿lO 

GOTO 10€ 

END 


ejercicios resueltos: 


1. Un padre al nacer su hijo mayor ingresa 100000 ptas en un Banco al 
interés simple anual y al 12% . ¿Cuál será el capital formado cuando el hi 
jo tenga 25 años?. 

SOLUCION: 


ESTE FROGRAMA LE FERMITE CALCULAR : 


1.- INTERES SIMPLE ANUAL 
2.- INTERES SIMPLE MENSUAL 
Z.- INTERES SIMPLE DIARIO 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
CAPITAL INICIAL CI =? 100000 

TANTO POR CIENTO ANUAL R =? 12 

NUMERO DE ANOS T=? 25 


10) 


EL CAPITAL FINAL AL CARO DE 23 AÑOS ES : CF = 400000 
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Le Un comerciante impone por espacio de 65 meses, un millón de ptas en 
un Banco a un 7% de interés simple anual. ¿Qué cantidad de ptas tendrá al 
cabo de los 65 meses?. 

SOLUCION: 


2STE PROGPAMA LE PERMITE CALCULAR : 


1.- INTERES SIMPLE ANUAL 
2.- INTERES SIMPLE MENSUAL 
T.- INTERES SIMPLE DIARIO 


SEGUM LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
CAPITAL INICIAL CI =? 1000000 

TANTO POR CIENTO ANUAL R =7? 2 

NUMERO DE MESES M=? 65 


El CAPITAL FINAL AL CABO DE 65 MESES ES : CF = 1379166.7 


3. Durante 20000 dias una persona coloca un capital de 20000 ptas al 
8.5% de interés simple anual. ¿Cuál será el capital final?. 
SOLUCION: 


COSTE PROSRAMA LE FERMITE CALCULAR : 


. INTERES SIMPLE ANUAL 
: INTERES SIMPLE MENSUAL 
«2 INTERES SIMPLE DIARIO 


(y ro 


SEGUN LA CPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? = 
CAPITAL INICIAL CI =? 20000 
TANTO POR CIENTO ANUAL R =? 8.5 


NUMERO DE DIAS D =? 20000 


EL CAPITAL FINAL AL CABO DE 20000 DIAS E 


10) 

o 

= 
H] 


119949. 44 


INTERES COMPUESTO 


introducción: 


Este programa sirve para estudiar el interés compuesto, permitiendo 
realizar las siguientes opciones: 
1.- Cálculo del capital final CF 
2.- Cálculo del capital inicial CI 
3.- Cálculo del tanto por ciento anual R 
4.- Cálculo del número de años T. 


La expresión del capital final es la siguiente: 


CF = CI(1 + R/100)* 
De esta expresión se deducen todas las demás para realizar los cálculos de 


las otras opciones. 


listado del programa: 


10 REM IRSA AAA 
20 REM 

30 REM 

40 REM INTERES COMPUESTO 

50 REM 

60 REM 

70 REM IRRRORIRRRORRIOIIRIRIRIOOIOIRIRIRIIOOIRIRRRIROOIIOIOIOIOOIIOIIIOIOIOIOIOIIOIIOA AAA 
100 PRINT 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :" 

120 PRINT 

130 PRINT 

140 PRINT " 1.- EL CAPITAL FINAL" 

150 PRINT " 2.- EL CAPITAL INICIAL" 

160 PRINT " 3.- EL TANTO POR CIENTO ANUAL" 

170 PRINT " 4.- EL NUMERO DE ANOS" 

180 PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT P 

205 PRINT 

210 ON P GOTO 219,319,419,519 

219 REM - CALCULO DEL CAPITAL FINAL - 

220 PRINT "CAPITAL INICIAL CI ="; 

230 INPUT CI 
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240 PRINT "TANTO POR CIENTO ANUAL R ="5 

250 INPUT R 

260 PRINT "NUMERO DE AÑOS T="; 

270 INPUT T 

280 CF= CIX(1+R/100)*T 

290 PRINT _ 
2300 PRINT "EL CAPITAL FINAL AL CABO DE";T;"ANOS ES : CF =" 
-310 GOTO 630 

319 REM - CALCULO DEL CAPITAL INICIAL - 

320 PRINT "CAPITAL FINAL cF ="; 

330 INPUT CF 

340 PRINT "TANTO FOR CIENTO ANUAL R ="5 

350 INPUT R 

260 PRINT "NUMERO DE ANOS vary 

370 INPUT T $ 

380 Cl= CF/((1+R/100)*T) 

390 PRINT 

400 PRINT "EL CAPITAL INICIAL ES CI ="3CI 
410 GOTO 630 

419 REM - CALCULO DEL TANTO POR CIENTO ANUAL - 
420 PRINT "CAPITAL INICIAL CI ="; 

430 INPUT CI 

440 PRINT "CAPITAL FINAL CF ="; 

450 INPUT CF 

460 PRINT "NUMERO DE AÑOS To” 

470 INPUT T 

480 R=(-1+(CF/CI)”*(1/T))*100 

490 PRINT 

500 PRINT "EL TANTO POR CIENTO ANUAL ES : R ="3R3"%" 
510 GOTO 630 

519 REM - CALCULO DE NUMERO DE AÑOS - 

520 PRINT "CAPITAL INICIAL cl ="; 

530 INPUT CI 

540 PRINT "CAPITAL FINAL cF ="; 

550 INPUT CF 

560 PRINT "TANTO POR CIENTO ANUAL R ="; 

570 INPUT R 

580 PRINT 

590 T=(LOG(CF)-LOG(CI))/LOG(1+R/100) 

600 PRINT 

610 PRINT "EL NUMERO DE ANOS ES T ="3T 

620 PRINT 

630 REM 
640 PRINT 

650 PRINT 

660 PRINT 

670 PRINT 

680 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES 7? S/N"; 
690 INPUT C$ 

700 IF C$="N" THEN GOTO 720 

710 GOTO 100 

720 END 


U 


PARA REALIZAR MAS CALCULOS - 


ejercicios resueltos: 
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1. Se calcula que un bosque tiene 24000 m? de madera y que aumenta en 


un 3,5% anual al interés compuesto. ¿cuántos años habrá de transcurrir pa- 


ra que tenga 36265,64 mo de madera?. 
SOLUCION: 


14 MATEMATICA FINANCIERA 


ESTE PROGRAMA LE PERMITE CALCULAR : 


1.- EL CAPITAL FINAL 

2.- EL CAPITAL INICIAL 

3.- EL TANTO POR CIENTO ANUAL 
4.- EL NUMERO DE AÑOS 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 4 
CAFITAL INICIAL cl =7? 24000 

CAPITAL FINAL CF =? 36265.64 

TANTO POR CIENTO ANUAL |R =? 3.5 


EL NUMERO DE AÑOS ES 7T= 11.999994 


E ¿Qué capital inicial, prestado al 2% de interés compuesto durante 6 
años, se convertirá en 750 ptas?. 
SOLUCION: 


CAPITAL FINAL CF =?2 750 
TANTO POR CIENTO ANUAL R =? 2 
NUMERO DE AÑOS T=P?6 


EL CAPITAL INICIAL ES CI = 665.97854 


3, ¿A que tanto por ciento anual al interés compuesto se han de colocar 


300000 ptas para que al cabo de 3 años se hayan convertido en 357306 ptas. 
SOLUCION: 


CAPITAL INICIAL CI 30 
CAPITAL FINAL CF =? 35 
NUMERO DE ANOS E 3 


EL TANTO POR CIENTO ANUAL ES : R = 6.0001187 % 


TABLAS DE INTERES COMPUESTO 


introducción: 


Este programa sirve para imprimir tablas que proporcionen el valor 
a que se convierte una peseta colocada al R% anual durante T años. 
Por tanto es el valor de la expresión: (L + aj”, 

En la linea 150 se pondrá el tanto por ciento anual deseado y en la 
linea 190 el periodo de años para el que se desea realizar el cálculo, en 


nuestro caso lo hemos hecho para los primeros 50 años. 


listado del programa: 


10 REM III III III 


20 REM 

30 REM TABLA DE (1. + RIF PARA EL 

40 REM 

50 REM CALCULO DEL INTERES COMPUESTO 
60 REM 


70 REM III 
100 PRINT 

110 PRINT " VALOR DE (1+R)*T" 

120 PRINT 

130 PRINT "RIRICIOIIIIIIIAIIIIIAIIOIIAIIIIIIIRRIIRRR999009010% 
IAANAAAAAA 

140 PRINT 

150 PRINT"NUM. DE AÑOS","4%",."6%","8%","10%" 

160 PRINT 

170 PRINT  "IRIRIIICOICIOIIOIIIOIAAIIIAIIIIIIIAIAIIIIIIAIIIORROIOIAA 
FOANAAAAAA 

180 PRINT 

190 FOR T=1 TO 50 

200 A=(1+.04)*T 

210 B=(1+.06)”T 

220 C=(1+.08)*T 

230 D=(1+.10)*T 

240 PRINT T,A,B,C,D 

250 NEXT T 

260 END 
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1. Construir una tabla que exprese en que se convierte una peseta al 
43, 6%, 8% y 10% 
SOLUCION: 


de interés compuesto durante los primeros cincuenta años. 
VALOR DE (1+R)”"T 
MARIO 


AÑOS 4% 6% 8% 10% 


ORIO IO 


1 1.04000000 1.06000000 1.08000000 1.10000000 
2 1.08160000 1.12360000 1.16640000 1.21000000 
3 1.12486400 1.19101600 1.25971200 1.33100000 
4 1.16985856 1.26247696 1.36048896 1.46410000 
5 1.21665290 1.33822558 1.46932808 1.61051000 
ó 1.26531902 1.41851911 1.58687432 1.77156100 
? 1.31593178 1.50363026 1.71322427 1.94871710 
8 1.36856905 1.5938284808 1.85093021 2.14358881 
Ed 1.42331181 1.68947296 1.99900463 2.35794769 
10 1.43024429 1.79084770 2.15892500 2.59374246 
11 1.53945406 1.898279856 2.33163900 2.85311671 
12 1.60103222 2.01219647 2.51817012 3.13842838 
13 1.66507351 2.13292826 2.71962373 3.45227122 
14 1.73167645 2.26090396 2.93719363 3.79749834 
15 1.30094351 2.39655819 3.17216912 4.17724818 
16 1.87298125 2.54035169 3.42594265 4.59497299 
1? 1.24790050 2.69277279 3.70001806 5.05447029 
18 2,02581652 2.85433916 3.29601951 5.55991732 
19 2.106284918 3.02559951 4.31570107 6.11590906 
yo) 2.191123149 3.20713548 4.66095715 6.72749996 
21 2.27876807 3.39956360 5.03383372 7.40024996 
22 2.36991879 3.60353742 5. 43654042 8.14027495 
23 2.46471554 3.81974967 5.87146366 8.25430245 
24 20 56330417 4.04893465 6.34118075 9.84973270 
25 2.66583633 4.29187073 6.84847521 10.83470597 
26 2.77246979 4.54938297 7.39635323 11.91817657 
27 2.288336858 4.82234595 7.?8806149 13.10999422 
28 2.99870332 5.11168670 8.62710641 14.42099365 
29 3.11865145 5.41838791 9.31727492 15.86309301 
30 3.24339751 5.74349118 10.06265691 17.44940232 
31 3.37313341 6.08810065 10.86766947 19.19434255 
32 3.50805875 6.45338669 11.73708302 21.11377681 
33 3.64838110 6.84058989 12.67604966 23.22515449 
34 3.79431635 7.25102529 13.69013364 25.54766995 
35 3.94608900 7.68608680 14.78534433 28.10243694 
36 4.10393256 8.14725201 15.96817188 30.91268064 
37 4,262808986 8.63608713 17.24562563 34.00394870 
38 4.43881346 9.15425236 18.62527568 37.40434358 
39 4.61636600 9.70350751 20.11529774 41.14477795 
40 4,80102064 10.28571795 21.72452156 45.25925574 
41 4.9?9306146 10.90286104 23.46248328 49.78518133 
42 5. 19278392 11.55703269 25.33948195 54.76369947 
43 5. 40049528 12.25045466 27.36664050 60.24006941 
44 5.61651509 12.98548194 29.55597175 66.26407637 
45 5.84117569 13.76461085 31.92044948 72.89048399 
46 6.07482272 14.59048751 34.47408545 80.17953242 
47 6.31781563 15.46591676 37.23201229 88.19748566 
48 6.57052826 16.39387177 40.21057327 97.01723424 
49 6.23334939 17.37750407 43.42741913 106.7189577 
50 7.10668336 18.42015432 46.90161267 117.3908534 


ANUALIDADES DE AMORTIZACIÓN 


introducción: 


El presente programa sirve para calcular la anualidad de amortiza- 


ción que es una cantidad fija que se paga al final de cada año, para extin 


guir con estas anualidades y sus intereses (compuesto) el importe de una 


deuda contraida y los intereses por ella producidos. 


La 


De 


El programa permite calcular las siguientes opciones: 
1.- La anualidad de amortización A 
2.- La deuda contraida D 
3.- El numero de años T 


expresión que nos da la anualidad de amortización es la siguiente: 


DR (AB 
Uns" -1 


esta expresión se deducen las demás para efectuar los cálculos de las 


A = 


otras opciones. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM IRICICICIOIORIOIAAIOIAIIIIIIIIIIIIRIIOIIOIIRIIRRIRRARRORRRRRROROIRAIAA 
REM 
REM 
REM ANUALIDADES DE AMORTIZACION 
REM 
REM 
REM IRRIRIIOAIIOICICICIOIIIIICIOIIIIAIIIIOIIIIIIIIIAIIIIIRIRRRIRIRRRIRRROIR: 
PRINT 

PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :" 

PRINT 

PRINT 

PRINT " 1.- LA ANUALIDAD DE AMORTIZACION” 

PRINT " 2.- LA DEUDA CONTRAIDA" 

PRINT " 3.- EL NUMERO DE ANOS" 

PRINT 

PRINT 

PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 

INPUT P 
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210 ON P GOTO 219,319,419 

219 REM - CALCULO DE LA ANUALIDAD DE AMORTIZACION - 
220 PRINT "DEUDA CONTRAIDA D ="; 

230 INPUT D 

240 PRINT "TANTO POR CIENTO ANUAL R ="; 

250 INPUT R 

260 PRINT "NUMERO DE ANOS T =="; 

270 INPUT T s 

280 A=(DXR/100%(1+R/100)*T)/((1+R/100)*T -1) 
290 PRINT 

300 PRINT "LA ANUALIDAD NECESARIA PARA CANCELAR LA DEUDA CONTRAIDA ES ; A ="A 
310 GOTO 530 

319 REM - CALCULO DE LA DEUDA CONTRAIDA - 

320 PRINT "ANUALIDAD DE AMORTIZACION A ="; 

330 INPUT A 

340 PRINT "TANTO POR CIENTO ANUAL R ="; 

350 INPUT R 

360 PRINT "NUMERO DE ANOS T=" 

370 INPUT T 

380 D=(AX((1+R/100)*T -1))/((R/100)X(1+R/100)“T) 
390 PRINT 

400 PRINT "LA DEUDA CONTRAIDA ES D' ="3D 

410 GOTO 530 

419 REM - CALCULO DE NUMERO DE ANOS 

420 PRINT "ANUALIDAD A PAGAR A ="; 

430 INPUT A 

440 PRINT "DEUDA CONTRAIDA D ="; 

450 INPUT D 

460 PRINT "TANTO POR CIENTO ANUAL R ="; 

470 INPUT R 


480 PRINT 
490 T=(LOG(A)-LOG(A-DXR/100))/LOG(1+R/100) 
500 PRINT A 

510 PRINT "EL NUMERO DE ANOS ES T =";T 


520 GOTO 530 

530 REM - PARA CONTINUAR - 
540 PRINT 

550 PRINT 

560 PRINT 

570 PRINT 

580 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES ? S/N"; 
590 INPUT Cs$ 

600 IF C$="N" THEN GOTO 620 
610 GOTO 100 

620 END 


ejercicios resueltos: 


1. ¿Cuál será la anualidad que habra que pagar durante dos años para 
amortizar una deuda de 93633,39 ptas junto con sus intereses al 4,5% anual? 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
DEUDA CONTRAIDA D =7? 93633.39 

TANTO POR CIENTO ANUAL R =? 4.5 

NUMERO DE AÑOS  T=? 2 


LA ANUALIDAD NECESARIA PARA CANCELAR LA DEUDA CONTRAIDA ES : A = 50000.001 
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La ¿Cuál será la deuda contraida por una persona que se compromete a 
pagar una anualidad de 367,2 ptas durante tres años, sabiendo que la deuda 
se incrementa con sus intereses al 5% anual?. 

SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
ANUALIDAD DE AMORTIZACION A =? 367.2 

TANTO POR CIENTO ANUAL R =? 5 

NUMERO DE ANOS T=?I 


LA DEUDA CONTRAIDA ES D = 999.97668 


3. ¿En cuantos años se amortizará una deuda de 50000 ptas al 6% anual 
sabiendo que la anualidad que se paga al final de cada año es de 14429,5 
ptas?. 

SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
ANUALIDAD A PAGAR A =? 14429.5 

DEUDA CONTRAIDA =? 50000 

TANTO POR CIENTO ANUAL RR =? 6 


EL NUMERO DE ANOS ES T = 4.0000233 


ANUALIDADES DE CAPITALIZACIÓN 


introducción: 


El presente programa sirve para calcular las anualidades de capitali 
zación que son unas cantidades fijas que se pagan al principio de cada año 
para formar junto con sus intereses ( compuesto) un capital al cabo de un 
cierto número de años. 

El programa permite calcular las siguientes opciones: 

1.- La anualidad de capitalización A 
2.- El capital C formado al cabo de T años 
3.- El número de años T. 

La expresión que nos da el capital final formado es la siguiente: 


A+ BE +2 - 1) 
R 


e 


De esta expresión se deducen las demás para efectuar los cálculos de las 
otras opciones. 


listado del programa: 


10 REM ARRRRRRIRRIRRAIRRRRRRORIRIAIR AOAROOOORORRRROORROOA 
20 REM 

30 REM 

40 REM ANUALIDADES DE CAPITALIZACION 

50 REM 

60 REM 

70 REM A AAA 
100 PRINT 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR :” 

120 PRINT 

130 PRINT 

140 PRINT " 1.- LA ANUALIDAD DE CAPITALIZACION" 

150 PRINT " 2.- EL CAPITAL FORMADO AL CABO DE T ANOS" 

160 PRINT " 3.- EL NUMERO DE AÑOS" 

170 PRINT 

180 PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 

200 INPUT P 
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210 ON P GOTO 219,319,419 

219 REM - CALCULO DE LA ANUALIDAD DE CAPITALIZACION - 
220 PRINT "CAPITAL QUE SE DESEA FORMAR C ="; 

230 INPUT C 

290 PRINT "TANTO POR CIENTO ANUAL R ="; 

2530 INPUT R 

260 PRINT "NUMERO DE ANOS To"; 

270 INPUT T 

2230 A=(CXR/100)/((1+R/100)%((1+R/100)*T-1)) 

220 PRINT 

300 PRINT "LA ANUALIDAD NECESARIA PARA FORMAR EL CAPITAL"¿C5"ES : A ="; 
310 GOTO 530 

319 REM - CALCULO DEL CAPITAL FORMADO AL CABO DE T AÑOS - 
320 FRINT "ANUALIDAD DE CAPITALIZACION A ="; 

330 INPUT A 

340 PRINT "TANTO POR CIENTO ANUAL R ="; 

350 INPUT R e 

360 PRINT "NUMERO DE ANOS T="j 

370 INPUT 7 

2320 C=AX(1+R/100)%( (1+R/100)*T-1)X100/R 

390 PRINT 


400 PRINT "EL CAPITAL FORMADO AL CABO DE";T;"ANOS ES : C ="; 
410 GOTO. 530 a 

419 REM - CALCULO DE NUMERO DE ANOS - 

420 PRINT "ANUALIDAD A PAGAR A ="; 

4309 INPUT A 

440 PRINT "CAPITAL FORMADO AL CABO DE T ANOS C ="; 
450 INPUT € 

460 PRINT "TANTO POR CIENTO ANUAL R ="; 

470 INPUT R 

4280 PRINT 

487 X=(CXR/100)/(AX(1+R/100)) 

490 T=LOG(1+X)/LOG(1+R/100) 

500 PRINT Z 

510 PRINT "EL NUMERO DE ANOS ES T ="3T 

520 GOTO 530 

530 REM - PARA CONTINUAR - 

540 PRINT 

550 PRINT 

560 PRINT 

570 PRINT 

580 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES 7? S/N"; 
590 INPUT C$ 

600 IF C$="N" THEN GOTI 620 

610 GOTO 100 

620 END 


ejercicios resueltos: 


1. ¿Cuál será la anualidad de capitalización que habrá de pagarse para 
que al cabo de 10 años, se forme junto con los intereses al 12% anual un 
capital de 1000000 de ptas? 

SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
CAPITAL QUE SE DESEA FORMAR C =? 1000000 
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TANTO POR CIENTO ANUAL R =? 12 
NUMERO DE AÑOS T=? 10 


LA ANUALIDAD NECESARIA PARA FORMAR EL CAPITAL 1000000 ES : A = 50378.718 


2. Una persona a los 40 años decide ahorrar al comienzo de cada año 
25000 ptas colocadas al 10% anual. ¿Qué capital tendrá al cumplir los 70 


años? . 
SOLUCION: 


SEGUN LA OPCION DESEADA. PULSE EL NUMERO QUE LE PRECEDE? 2 
ANUALIDAD DE CAPITALIZACION A =? 25000 

TANTO POR CIENTO ANUAL R =7? 10 

NUMERO DE AÑOS T =? 30 


EL CAPITAL FORMADO AL CABO DE 30 ANOS ES : C = 4523585.6 


3. ¿Cuántos años habrán de trascurrir,para que se forme un capital de 
1197878,8 teniendo en cuenta que se abona una anualidad de capitalización 


de 30000 ptas, y que el tanto por ciento anual es de 11,5 ? 
SOLUCION: 


pa 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
ANUALIDAD A PAGAR A =? 30000 

CAPITAL FORMADO AL CABO DE T ANOS C =7? 1197278.8 

TANTO POR CIENTO ANUAL R =? 11.5 


EL NUMERO DE AÑOS ES T= 15 


SUCESIONES ARITMETICAS 


introducción: 


Este programa sirve para estudiar sucesiones (progresiones) aritméti 


cas. El programa permite calcular: 


1.- 
2.- 


6.- 


El término n-esimo AN 


La razón de la progresión D 


El término primero Al 
El número de términos N 
Interpolar H medios aritméticos entre dos términos dados 


La suma de N términos consecutivos S 


La expresión que permite hallar el término n-esimo en función del 


primero, el número de términos y la razón, es la siguiente: 


AN = Al + (N - 1) D 


De esta expresión se deduce las otras para realizar los cálculos de las 


otras opciones. 


listado del programa: 


10 

20 

30 

30 

50 

100 
110 
120 
130 
1340 
150 
160 
170 
120 
190 
200 
210 
220 
230 


REM IRRADIA OOOO IIA 


REM 
REM 
REM 


PROGRESIONES ARITMETICAS 


REM ICI OOOO 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 


"EL PRESENTE 


"1.- CALCULO 
"2.- CALCULO 
"3.- CALCULO 
"4.- CALCULO 


PROGRAMA LE PERMITE CALCULAR LO SIGUIENTE :" 


DEL TERMINO N-ESIMO" 

DE LA RAZON" Ñ 

DEL TERMINO PRIMERO" 
DEL NUMERO DE TERMINOS” 


"5S.- INTERPOLAR H MEDIOS ARITMETICOS ENTRE DOS TERMINOS DADOS” 


"6.- CALCULO 


DE LA SUMA DE N TERMINOS CONSECUTIVOS" 


"SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" 5 


P 
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240 ON P GOTO 249,349,449,549,649,789 
249 REM - CALCULO DEL TERMINO N-ESIMO - 
250 PRINT "TERMINO PRIMERO Al ="; 

260 INPUT Al 

270 PRINT "NUMERO DE TERMINOS N =";5 

280 INPUT N 

290 PRINT "RAZON O DIFERENCIA D ="; 

300 INPUT D 

310 AN=A1+(N-1)XD 

320 PRINT 

330 PRINT "EL TERMINO N-ESIMO DE LA PROGRESION ES: AN ="5AN 
340 GOTO 890 

349 REM - CALCULO DE LA RAZON - 

350 PRINT "TERMINO PRIMERO Al ="; 


360 INPUT Al 
370 PRINT "TERMINO N-ESIMO AN ="; 


380 INPUT AN 

390 PRINT "NUMERO DE TERMINOS N ="; 

400 INPUT N 

410 D=(AN-A1)/(N-1) 

420 PRINT 

430 PRINT "LA RAZON O DIFERENCIA DE LA PROGRESION ES: D =";D 
440 GOTO 890 

449 REM - CALCULO DEL TERMINO PRIMERO - 

450 PRINT "TERMINO N-ESIMO AN ="; 

460 INPUT AN 

470 PRINT "RAZON O DIFERENCIA D ="; 

480 INPUT D 

490 PRINT "NUMERO DE TERMINOS N ="; 

500 INPUT N 

510 AL=AN- (N-1)XD 

530 PRINT "EL PRIMER TERMINO DE LA PROGRESION ES : Al =";A1 
540 GOTO 890 

549 REM - CALCULO DEL NUMERO DE TERMINOS - 

550 PRINT "TERMINO PRIMERO Al ="; 

560 INPUT Al 

570 PRINT "TERMINO N-ESIMO AN ="; 

580 INPUT AN 

590 PRINT "RAZON O DIFERENCIA D ="; 

600 INPUT D 

610 N=1+(AN-A1)/D 

620 PRINT 

630 PRINT "EL NUMERO DE TERMINOS DE LA PROGRESION ES : N ="3N 
640 GOTO 890 

649 REM - CALCULO DEL NUMERO DE TERMINOS - 

650 PRINT "CUANTOS MEDIOS DESEA INTERPOLAR "; 

660 INPUT H 

670 PRINT "INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERP 
OLAR"5H5"MEDIOS ARITMETICOS"; 

680 INPUT P,U q 

690 D=(U-P)/(H+1) 

700 PRINT 

710 PRINT "LA RAZON DE LA PROGRESION ES : D ="3D 

720 PRINT 

730 PRINT "LOS MEDIOS ARITMETICOS INTERPOLADOS SON :" 
740 FOR I=1 TO H 

750 T=P+I1XD 

760 PRINT T, 

770 NEXT I 

780 GOTO 890 
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729 REM - CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS - 
790 PRINT "CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N ="; 
800 INPUT N 

210 PRINT "TERMINO PRIMERO Al =”3 

220 INPUT Al 

230 PRINT "RAZON O DIFERENCIA D ="; 

840 INPUT D 

£50 S=MX(A1+ (NM-1)X(D/2)) 

260 PRINT 

870 PRINT "LA SUMA DE LOS"3N53"TERMINOS CONSECUTIVOS DE LA PROGRESION ES: S ="3S 
es0 GOTO 890 

270 REM - PARA REALIZAR MAS CALCULOS - 

900 PRINT 

910 PRINT 

220 PRINT 

930 PRINT 

940 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES ? S3/N"5 
950 INPUT Cs$ 

960 IF C$="N" THEN GOTO 280 

970 GOTO 100 

9280 END 


ejercicios resueltos: 


1. Interpolar 32 medios aritméticos entre -7 y 125. 
SOLUCION: 


EL PRESENTE PROGRAMA LE PERMITE CALCULAR LO SIGUIENTE : 


1.- CALCULO DEL TERMINO N-ESIMO 

2.- CALCULO DE LA RAZON 

3.- CALCULO DEL TERMINO PRIMERO 

5.- INTERPOLAR H MEDIOS ARITMETICOS ENTRE DOS TERMINOS DADOS 
6.- CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 5 
CUANTOS MEDIOS DESEA INTERPOLAR ? 32 


INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERPOLAR 32 MED 
_10S ARITMETICOS?-7 125 
LA RAZON DE LA PROGRESION ES : D= 4 


LOS MEDIOS ARITMETICOS INTERPOLADOS SON : 


-=3 1 E 3 13 17 21 25 29 33 
37 41 45 49 53 57 6l 65 69 73 
22 si 85 89 93 97 101 105 109 113 
117 121 


Ze El primer término de una progresión aritmética es 7 y el término 
20 es -31. Hallar la razón de la progresión. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
TERMINO PRIMERO Al =? 72 


TERMINO N-ESIMO AN =?-31 
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NUMERO DE TERMINOS N =? 20 


LA RAZON O DIFERENCIA DE LA PROGRESION ES: D =-2 


3. Sabiendo que el primer término de una progresión aritmética es 1003 
y que la razón es 59, calcular la suma de los 16 primeros términos. 
SOLUCION: 


SEGUN LA OPGQION DESEADA PULSE EL NUMERO QUE LE PRECEDE? é 
CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N =? 16 
TERMINO PRIMERO Al =? 1003 

RAZON O DIFERENCIA D =? 59 


LA SUMA DE LOS 16 TERMINOS CONSECUTIVOS DE LA PROGRESION ES: S = 23128 


4. El primer término de una progresión aritmética es 1003 y la razón 
es 59, hallar el término 16. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
TERMINO PRIMERO Al =? 1003 

NUMERO DE TERMINOS N =? 16 

RAZON O DIFERENCIA D =7? 59 


EL TERMINO N-ESIMO DE LA PROGRESION ES: AN = 1888 


SUCESIONES GEOMETRICAS 


introducción: 


Este programa sirve para operar con sucesiones (progresiones) geomé 

tricas. El programa permite calcular: 

1.- El término n-esimo AN 

2.- La razón de la progresión R 

3.- El término primero Al 

4.- El número de términos N 

5.- Interpolar H medios geométricos entre dos términos dados. 

6.- La suma de N términos consecutivos (|R|>1) 

7.- La suma de los infinitos términos (|RI<1) 

8.- El producto de N términos consecutivos. 


La expresión que permite hallar el término n-esimo en función del 
primero, el número de términos y la razón es la siguiente: 


an = al RN) 


De esta expresión se deducen las otras para realizar el cálculo de las 
otras opciones. 


listado del programa: 


A EEE OS 
20 REM 

3O REM PROGRESITONES GEOMETRICAS 

40 REM 

50 REM RRA OOOO ARA AR 
100 PRINT 

110 PRINT "EL PRESENTE PROGRAMA LE FERMITE CALCULAR LO SIGUIENTE :" 

120 PRINT 

130 PRINT "1.- CALCULO DEL TERMINO N-ESIMO” 

140 PRINT "2.- CALCULO DE LA RAZON” 

150 PRINT "3.- CALCULO DEL TERMINO PRIMERO" 

160 FRINT "4.- CALCULO DEL NUMERO DE TERMINOS" 

170 PRINT "S.- INTERPOLAR H MEDIOS GEOMETRICOS ENTRE DOS TERMINOS DADOS" 

120 PRINT "6.- CALCULO DE LA SUMA DE N TERMINOS CUNSECUTIVOS ABS(R)>=1” 

190 PRINT "7.- CALCULO DE LA SUMA DE LOS INFINITOS TERMINOS (-1<R:31)" 

200 PRINT "8.- CALCULO DEL PRODUCTO DE N TERMINOS CONSECUTIVOS" 

202 PRINT 

204 PRINT 


28 


210 
220 
230 


670 


PRINT 
INPUT 
PRINT 


SUCESIONES DE NUMEROS REALES 


"SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" 


P 


ON P GOTO 249,249, 449,549,649,739,889,969 
CALCULO DEL TERMINO N-ESIMO - 


REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


"TERMINO PRIMERO Al ="; 
Al 

"MUMERC DE TERMINOS N ="; 
N 

"RAZON R ="; 

R 


AN=A1XR” (N-1) 


PRINWT 
PRINT 
GOTO 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


R=(AN/ 


PPINT 
PRINT 
soTo 
REM - 
PRINT 
INFUT 
PRINT 
INPUT 
PRINT 
INPUT 


"EL TERMINO N-ESIMO DE LA 
1070 

CALCULO DE LA RAZON - 
"TERMINO PRIMERO Al ="; 
Ai 

"TERMINO N-ESIMO 
AN 

"MUMERO DE TERMINOS N ="; 
N 

ALIS CM=10 


AN ="; 


PROGRESION ES: 


Ai 


"LA PAZON 2 DIFERENCIA DE LA PROGRESION ES: 


1070 

CALCULO DEL TERMINO F 
“TERMINO N-ESIMO AN 
AN 

"RAZON R ="3 

R 

"NUMERO DE TERMINOS N ="; 
N 


A1=AN/(R*(N-1)) 
"EL PRIMER TERMINO DE LA PROGRESION ES 


PRINT 
GOTO 

REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


1070 


PRIMERO - 


CALCULO DEL NUMERO DE TERMINOS 


"TERMINO PRIMERO Al ="; 
Al 
"TERMINO M-ESIMO AN ="; 
AN 
"RAZON O DIFERENCIA R ="5 
R 


N=1+(LOG(AN)-LOG(A1))/LOG(R) 


PRINT 
PRINT 
GOTO 
REM - 
PRINT 
INPUT 
PRINT 


"EL NUMERO DE TERMINOS DE LA FROGRESION ES 


1070 


INTERFPOLAR H MEDIOS GEOMETRICOS ENTRE DOS TERMINOS DADOS - 
"CUANTOS MEDIOS DESEA INTERFOLAR 


H 


"INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE 


OLAR"53H;3 "MEDIOS GEOMETRICOS”; 


680 
690 
00 
710 
720 
730 
740 
750 
760 


INPUT 


PU 


R=(U/P)9 (1/(H+1)) 


PRINT 
PRINT 
PRINT 
PRINT 


"LA RAZON DE LA PROGRESION ES : 


"LOS MEDIOS GEOMETRICOS INTERPOLADOS SON 


FOR I=1 TO H 
T=PXR"I 


PRINT 


Ta 


R 


ma 
, 


="5R 


="5Al 


N 


=" GR 


N 


INTERP 
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7270 NEXT I 

230 GOTO 1070 

7289 REM - CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS (ABS(R)>=1) 
290 PRINT "CUANTOS TERMINOS CONSECUTIVOS DESEA SUMAR: N ="; 

200 INPUT N 

210 PRINT "TERMINO PRIMERO Al ="; 

820 INPUT Al 

230 PRINT "RAZON R ="; 

240 INPUT R 

250 S=A1X%((RON)-1)/(R-1) 

S6C PRINT 

£70 PRINT "LA SUMA DE LOS";N;"TERMINOS CONSECUTIVOS DE LA PROGRESION ES: S 
830 GOTO 1070 

889 REM - CALCULO DE LA SUMA DE LOS INFINITOS TERMINOS (-1<R<1) - 
82920 FRINT "TERMINO PRIMERO Al ="; 

200 INPUT Al 

210 FPRINT "RAZON R ="; 

2920 INPUT R 

930 S3=A1/(1-R) 

40 PRINT 

950 PRINT "LA SUMA DE LOZ INFINITOS TERMINOS DE LA PROGREZCION ES: S =";S 
960 GOTO 1070 

79679 REM - CALCULO DEL PRODUCTO DE N TERMINOS CONSECUTIVOS- 

270 PRINT "TERMINO FRIMERO al "y 

220 INPUT Al 

290 PRINT "TERMINO N-ESIMO AN ="; 

1000 INPUT AN 

1010 PRINT "NUMERO DE TERMINOS N ="; 

1020 INPUT N 

1070 V=(A1XAN)” (N/2) 

1040 PRINT 

1050 PRINT "EL PRODUCTO DE”5¿N;"TERMINOS CONSECUTIVOS ES : P ="3Y 
1060 GOTO 1070 

1970 REM - PARA REALIZAR MAS CALCULOS - 

1080 PRINT 

1090 PRINT 

1100 PRINT 

1110 PRINT 


1120 PRINT "DESEA CONTINUAR REALIZANDO OTRAS OPCIONES ? S/N"5 
1130 INPUT Cé 

1140 IF C$="N" THEN GOTO 1160 

1150 GOTO 100 

11£0 END 


ejercicios resueltos: 


1. Interpolar 5 medios geométricos entre 7 y 5103 
SOLUCION: 


EL PRESENTE PROGRAMA LE PERMITE CALCULAR LO SIGUIENTE : 


1.- CALCULO DEL TERMINO N-ESIMO 

2.- CALCULO DE LA RAZON 

4.- CALCULO DEL NUMERO DE TERMINOS 

5.- INTERPOLAR H MEDIOS GEOMETRICOS ENTRE DOS TERMINOS DADOS 
6.- CALCULO DE LA SUMA DE N TERMINOS CONSECUTIVOS ABS(R)>=1 
7.- CALCULO DE LA SUMA DE LOS INFINITOS TERMINOS (-1<R<1) 
8.- CALCULO DEL PRODUCTO DE N TERMINOS CONSECUTIVOS 
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SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? S 

CUANTOS MEDIOS DESEA INTERPOLAR ? 5 

INTRODUZCA EL PRIMERO Y EL ULTIMO TERMINO ENTRE LOS QUE QUIERE INTERPOLAR 5 MEDI 
OS GEOMETRICOS? 7? 5103 


LA RAZON DE LA PROGRESION ES : R = 3 


LOS MEDIOS GEOMETRICOS INTERPOLADOS SON : 
21 63 189 567 1701 


2. En una progresión geométrica el primer término es 0,03125 y el 
término n-esimo es 512, sabiendo que la razón es 2, hallar el número de 
términos. 

SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 4 
TERMINO PRIMERO Al =? .03125 

TERMINO N-ESIMO AN =? 512 

RAZON O DIFERENCIA R =? 2 


EL NUMERO DE TERMINOS DE LA PROGRESION ES : N = 15 


3. Hallar el producto de los 10 primeros términos de una progresión 
geométrica sabiendo que el primero es 3 y el décimo es 1536. 
SOLUCION: 


SEGUN. LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 8 
TERMINO PRIMERO Al =?2 3 

TERMINO N-ESIMO AN =? 1536 

NUMERO DE TERMINOS N, =? 10 


EL PRODUCTO DE 10 TERMINOS CONSECUTIVOS ES : P = 2.077602E+18 


4. Hallar la suma de los infinitos términos de una progresión geomé- 
trica, sabiendo que el primer término es 6 y la razón 1/3. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 7? 
TERMINO PRIMERO Al =? 6 
RAZON —|R =? 33333333 


LA SUMA DE LOS INFINITOS TERMINOS DE LA PROGRESION ES: S = 9 


FORMACION DE LOS TERMINOS DE UNA SUCESION 


introducción: 


Este programa sirve para formar los términos de una sucesión de nú- 
meros reales. 


En la linea 160 se indica los términos que se desean formar, también 
se podría formarlos de 10 en 10 etc, sin más que añadir STEP 10. En la li- 
nea 170 se escribe la expresión del término general de la sucesión. 


listado del programa: 


10 REM FIAR 
20 REM 


30 REM SUCESIONES DE NUMEROS REALES 
40 REM 

50 REM FORMACION DE TERMINOS CONOCIDO EL TERMINO GENERAL 

60 REM 


70 REM IRSA MIAAAAAA 
100 PRINT 

110 PRINT "CUANTOS TERMINOS DESEA FORMAR "; 

120 INPUT P 


130 PRINT 
140 PRINT "INDICE", " TERMINO" 
150 PRINT "RRA, MIRROR 


160 FOR N=1 TO P 

170 AN=3%N/ (NXN+1) 

180 PRINT " N="3N," A"3N3"="3AN 
190 NEXT N 

200 END 


ejercicios resueltos: 


1. Formar los 60 primeros términos de la sucesion de números reales que 


tiene por término general: a, = nn. 


E n +1 
SOLUCION: 


CUANTOS TERMINOS DESEA FORMAR ? 60 


32 SUCESIONES DE NUMEROS REALES 


INDICE TERMINO 
AAA ROCCA 

= 1 At = 1.5 

= 2 A2=1.2 

= 3 A3=.92 

= 4 A 4 = ¿70588235 
N= 5 AS5S= 57692308 
N= 6 A 6 = ¿48648649 
N= 7? A7?7= .42 

N= 8 A8= 36923077? 
N= 9 A9= .32926829 
N= 10 A 10 = .2970297? 

= 11 A 11 = .2704918 
N= 12 A 12 = .24827586” 
N= 13 A 13 = .22941176 
N= 14 A 194 = ¿21319797 

= 15 A 15 = .19911504 

= 16 A 16 = .18677043 
N= 17 A 17 = .17586207 
N= 18 A 18 = .16615385 
N= 19 A 19 = ¿15745856 
N= 20 A 20 = ¿14962594 

= 21 A 21 = .14253394 
N= 22 A 22 = .13608247 
N= 23 A 23 = .13018868 
N= 24 A 24 = ¿12478336 
N= 25 A 25 = .11980831 
N= 26 A 26 = .11521418 
N= 27? A 27 = .1109589 
N= 28 A 28 = .10700637 
N= 29 A 29 = .10332542 

= 30 A 30 = .099889012 

= 31 A 31 = .0966735972 
N= 32 A 32 = .093658537 
N= 33 A 33 = .090825688 

= 34 A 34 = .088159032 

= 35 A 35 = .085644372 
N= 36 A 36 = .083269082 
N= 37 A 37 = .081021898 
N= 38 A 38 = .078892734 
N= 39 A 39 = .0762872536 
N= 30 A 40 = ¿0749531549 

= 41 A 41 = .073127229 
N= 42 A 42 = .071388102 
N= 43 A 43 = .06972973 
N= 44 A 44 = 068146618 
N= 45 A 45 = .066633761 
N= 46 A 46 = .065186585 
N= 47 A 47 = .063800905 
N= 48 A 48 = .062472885 
N= 49 A 49 = .061199001 
N= 50 A 50 = .05997601 
N= 51 A 51 = .058800922 
N= 52 A 52 = .05767098 
N= 53 A 53 = .05658363 
N= 54 A 54 = .O05553651 
N= 55 A 55 = .054527429 
N= 56 A 56 = .053554351 

= 57 A 57 = .052615385 

= 58 A 58 = .051708767 
N= 59 A 59 = .050832855 
N= 60 A 60 = .049986115 


SUCESION DEL NUMERO e 


introducción: 


Este breve programa es un caso particular del programa anterior, 
sirve para formar términos de la sucesión de números reales que tiene por 
límite el número e. 

La expresión del término general es: 


1 


a = (1 + = 


n 


listado del programa: 


10 REM NIRO 
20 REM 


30 REM SUCESIONES DE NUMEROS REALES 
40 REM 

50 REM FORMACION DE TERMINOS DE LA SUCESION DEL NUMERO E 

60 REM 


70 REM IAEA 
100 PRINT 

110 PRINT "CUANTOS TERMINOS DESEA FORMAR "5 

120 INPUT P 


130 PRINT 
140 PRINT "INDICE", " TERMINO” 
150 PRINT "RRA MIRROR" 


160 FOR N=1 TO P 

170 AN=(1+1/N)%N 

180 PRINT " N="3N,"  A"ÍN5"="5AN 
190 NEXT N 

200 END 


ejercicios resueltos: 


1. Formar los 40 primeros términos de la sucesión del número e. 
SOLUCION: 


34 


SUCESIONES DE NUMEROS REALES 


CUANTOS TERMINOS DESEA FORMAR 7? 40 


INDICE 


N= 
N= 


- 


TERMINO 
IO IOICOIOAIIANAAAAAAAR: 


DDDDDDDDDDDDDDDDDDDDDDODDIDODODBDDDDDDIDDDDODODADAAYA 


= 2 


2 
2 


2 


= 2 


2 
2 
2 
2 


.25 

. 3703704 
. 4414062 
. 48832 
5216264 
. 5464997 
.5657845 
.5811748 
2.5937425 
2.604199 
2.6130353 
2.6206009 


- 2.6271516 


2.6328787 
2.6379285 
2.6424144 
2.6464258 
2.6500343 
2.6532977 
2.6562632 
2.6589699 
2.6614501 
2.6637313 
2.6658363 
2.667785 

2.669594 

2.6712779 
2.6728492 
2.6743188 
2.6756963 
2.6769901 
2.6782077 
2.6793554 
2.6804393 


= 2.6814644 


2.6824355 
2.6833566 
2.6842316 
2.6850638 


OPERACIONES CON SUCESIONES 


introducción: 


Este programa permite realizar las operaciones de suma, diferencia 
producto y cociente de dos sucesiones de números reales. Para ello es pre- 
ciso introducir en las lineas 250 y 260 los términos generales de las dos 


sucesiones. 
En la linea 240 se indica el número de términos que se quiere for- 


mar. 
Cuando la sucesión Br tiende a cero o bien algunos de sus términos 


son ceros, la sucesión cociente an/Pa no está definida. 


listado del programa: 


10 REM IRRROROOOOIOOIOOOOOIOIIIIOIIIRRIIIOIIOIOIIIONNIIRIIIIRIINIIIIIINIAAAAAA 


20 REM 

30 REM DPERACIONES CON SUCESIONES 
40 REM 

50 REM DE NUMEROS REALES 

60 REM 


70 REM III III III NIN RIIIE: 
100 PRINT 

110 PRINT "EL PRESENTE PROGRAMA LE PERMITE CALCULAR* 

120 PRINT 

130 PRINT 

140 PRINT "1.- SUMA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 

150 PRINT "2.- DIFERENCIA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 
160 PRINT "3.- PRODUCTO DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 
170 PRINT "4.- COCIENTE DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES" 
180 PRINT 

190 PRINT "CUANTOS TERMINOS QUIERE OBTENER"; 

200 INPUT P 

210 PRINT 

220 PRINT "INDICE", ” SUMA" +” DIFERENC" ," PRODUCTO" ," COCIENTE" 

230 PRINTS AAC OCC AAA AAA 

240 FOR N=1 TO P 

250 AN= 

260 BN= 


36 SUCESIONES DE NUMEROS REALES 


A ag A KA 


270 SN=AN+EN 

280 DN=AN-BN 

290 PN=ANXEN 

300 CN=AN/BN 

310 PRINT N,SN,DM,PN,CN 
320 NEXT N 

330 END 


ejercicios resueltos: 


1. Dadas las sucesiones de términos generales: 


2 2 
a. = == , b = EU formar los cuarenta primeros términos 
n 3n +2 n n? +1 
de las sucesiones siguientes: 

an + bp" an 7 b,” an * b,: a,/Pn 


SOLUCION: 


EL PRESENTE PROGRAMA LE PERMITE CALCULAR 


1.- SUMA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 

2.- DIFERENCIA DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 
3.- PRODUCTO DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 
4.- COCIENTE DE DOS SUCESIONES CONOCIDOS SUS TERMINOS GENERALES 


CUANTOS TERMINOS QUIERE OBTENER? 40 


INDICE SUMA DIFERENC FRODUCTO COCIENTE 
RIIIE III 
1 1.20000000 - "80000000 . 20000000 . 20000000 
2 2.10000000 - 1.10000000 . 20000000 «31250000 
3 2.61818182 -= ,P?eisisis 1.47272727 45454545 
4 3.02521008 - ¿73949580 2.15126050 .60714286 
5 3.39366516 -=  .45248869 2.82805430 .76470588 
6 3.74594595 -=  .14574595 3.50270270 . 72500000 
? 4.09043478 . 17043478 4.17565217 1.08695652 
[s] 4.43076923 . 49230769 4.84733728 1.25000000 
9 4.76871320 .381749369 5.51808242 1.41379310 
10 5.10519802 1.14480198 6.18811881 1.57812500 
11 5.44074941 1.47353630 6.85761124 1.74285714 
12 5.77568058 1.80326679 7.52667877 1.90789474 
13 6.11018651 2.13371593 8. 19540889 2.07317073 
14 6.44439317 2.46469774 8.86386710 2.23863636 
15 6.77838448 2.77608360 9.53210318 2.40425532 
16 7.11221790 3.12778210 10.20015564 2.57000000 
17 7.44593364 3.45972674 10.86805465 2.73584906 
18 7.77956044 3.79186813 11.53582418 2.?20178571 
19 8.11311921 4.12416893 12.20348347 3.06779661 
20 8.44662537 4. 45660043 12.87104818 3.23387097 
21 g8.78009050 4.78914027 13.53853115 3. 40000000 
22 9.11352335 5.12177077 14.20594300 3.56617647 


23 9-44693064 5. 45447781 14.87329259 3.73239437 


24 
25 
26 
27? 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 


9.78031758 
10.113628823 
10.44704579 
10.78039280 
11.11373130 
11.44706290 
11.78038894 
12.11371047 
12.44702837 
12.78034335 
13.11365601 
13.44696681 
13.78027616 
14.11358439 
14.44689178 
14.78019855 
15.11350488 
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5.78724999 
6.12007800 
6.45295421 
6.78587226 
7.11882684 
7.45181350 
7.78482845 
8.11786848 
8.45093081 
8.78401308 
9.11711322 
9.45022945 
9.78336020 
10.11650410 
10.44965995 
10.78282667 
11.11600332 


15.54058738 
16.20783370 
16.87503693 
17.54220168 
18.20933195 
18.87643118 
19.54350239 
20.21054820 
20.87757093 
21.54457262 
22.211555089 
22.87851992 
23.54546856 
24.21240230 
24.87932228 
25.54622953 
26.21312499 


3.89864865 
4.06493506 
4.23125000 
4.39759036 
4.56395349 
4.73033708 
4.89673913 
5.06315789 
5.22959184 
5.39603960 
5.56250000 
5.72897196 
5.89545455 
6.06194690 
6.22844828 
6.39495798 
6.56147541 
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SUMA DE TERMINOS DE UNA SUCESION 


introducción: 


Este programa sirve para calcular la suma de p términos consecutivos 
de una sucesión de números reales. En la linea 210 se introduce la expre- 
sión del término general de la sucesión a sumar. En caso de que queramos 
sumar a partir del termino 200, en lugar del término primero, modificare- 
mos la linea 200 escribiendo N = 200. 

El programa imprime el índice de cada término, el término y la suma 


de los términos acumulados hasta el correspondiente al índice. 


listado del programa: 


10 REM ICAA 
20 REM , . 

30 REM SUMA DE P TERMINOS CONSECUTIVOS 
40' REM 

50 REM DE UNA SUCESION DE NUMEROS REALES 

60 REM 

70 REM III 
100 PRINT 

110 PRINT "INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210" 

120 PRINT 

130 PRINT "CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR"; 

140 INPUT P 

150 PRINT 

160 PRINT 

170 PRINT "INDICE", "TERMINO AN", "SUMA SN" 

180 PRINT "RRRRKS AAA 

190 SN=0 

200 N=1 

210 AN= 

220 SN=SN+AN 

230 PRINT N,AN,SN 

240 N=N+1 

250 IF N<=P THEN GOTO 210 

260 END 
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ejercicios resueltos: 


1. Calcular la suma de los 30 primeros términos de la sucesión que tie 
ne por término general: 1 h 
a. =(1+=) 
n n 
SOLUCION: 


INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210 


CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR? 30 


INDICE TERMINO AN suma SN 
FAO OIIIAIIIIIAICIIAAAAAA 


1 2.000000000 2.00000000 
2 2.250000000 4.25000000 
3 2.370370370 6.62037037 
4 2.441406250 9.06177662 
5 2. 4828320000 11.55009662 
6 2.521626372 14.07172299 
Ea 2.546499698 16.61822269 
8 2.565784514 19. 18400720 
2 2.581174790 21.76518199 
10 2.593742463 24.35892446 
11 2.604199010 26.96312347 
12 2.613035288 29.57615875 
13 2.620600891 32.19675964 
14 2.627151554 34.82391120 
15 2.632878717 37.45678992 
16 2.637928498 40.09471841 
1? 2.642414375 42.73713279 
18 2.646425319 45.38355861 
19 2.650034323 48.03359293 
2 2.653297707 50. 68689064 
21 2.656263212 53.34315385 
22 2.658969856 56.00212370 
23 2.661450125 58.66357383 
24 2.663731263 61.32730509 
25 2.665836334 63.99314143 
26 2.6677284969 66. 66092640 
? 2.669593980 69.33052038 
22 2.671277852 72.00179823 
29 2.672849153 74.67464738 


En Calcular la suma de los cuadrados de los 30 primeros números natura 


2.674318725 


les, es decir: 
SOLUCION: 


INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210 


CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR? 30 


Ss 


77.34896617 


2 


L- + y? + ye E 30? 


40 SUCESIONES DE NUMEROS REALES 


INDICE TERMINO AN SUMA SN 
RIIIE 
1 1.0 1.0 
2 4.0 5.0 
3 9.0 14.0 
4 16.0 30.0 
5 25.0 55.0 
6 36.0 91.0 
? 49.0 140.0 
8 64.0 204.0 
id g1.0 285.0 
10 100.0 385.0 
11 121.0 506.0 
12 144.0 650.0 
13 169.0 819.0 
14 196.0 1015.0 
15 225.0 1240.0 
16 256.0 1496.0 
1? 289.0 17285.0 
18 324.0 2109.0 
19 361.0 2470.0 
20 400.0 2870.0 
21 441.0 3311.0 
22 484.0 37935.0 
23 529.0 4324.0 
24 576.0 4900.0 
25 625.0 5525.0 
26 676.0 é6201.0 
2? 729.0 6930.0 
28 784.0 7714.0 
29 841.0 8555.0 
30 900.0 9455.0 


3. Calcular la suma de los cubos de los 50 primeros números naturales 


es decir: =srarrda. .. + 50? 


SOLUCION: 


INTRODUZCA EL TERMINO GENERAL DE LA SUCESION EN LA LINEA 210 


CUANTOS TERMINOS DE LA SUCESION DESEA SUMAR? 50 


INDICE TERMINO AN SsumA SN 
EA 
1 1.0 1.0 
2 3.0 9.0 
3 27.0 36.0 
4 64.0 100.0 
5 125.0 225.0 
é 216.0 441.0 
2 343.0 784.0 
8 512.0 1296.0 
9 729.0 2025.0 
10 1000.0 3025.0 


1331.0 
1728.0 
219?7.0 
2744.0 
3375.0 
4096.0 
4913.0 
5832.0 
6859.0 
g8000.0 
9261.0 
10648.0 
12167.0 
13824.0 
15625.0 
17576.0 
19683.0 
21952.0 
24389.0 
27000.0 
29791.0 
32768.0 
35937.0 
39304.0 
42875.0 
46656.0 
50653.0 
54872.0 
59319.0 
64000.0 
68921.0 
74088.0 
79507.0 
85184.0 
91125.0 
97336.0 
103823.0 
110592.0 
117649.0 
125000.0 
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4356.0 
6084.0 
8281.0 
11025.0 
14400.0 
18496.0 
23409.0 
29241.0 
36100.0 
44100.0 
53361.0 
64009.0 
76176.0 
90000.0 
105625.0 
123201.0 
142884.0 
164836.0 
189225.0 
216225.0 
246016.0 
278784.0 
314721.0 
354025.0 
396900.0 
443556.0 
494209.0 
549081.0 
608400.0 
672400.0 
741321.0 
815409.0 
894916.0 
980100.0 
1071225.0 
1168561.0 
1272384.0 
1382976.0 
1500625.0 
1625625.0 
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SUCESION DE FIBONACCI 


introducción: 


Este breve programa sirve para formar los términos de la sucesión 
de Fibonacci. Esta sucesión de números reales se define de la siguiente for 


ma: az = 1, a, = 1, an = an-1 + an-2 


Vemos que los dos primeros términos han de estar separados y el resto si- 
guen la ley de recurrencia descrita en la relación: an 7 m1 + an-2 
Este programa es igualmente válido, salvo en los dos primeros térmi 


nos, para cualquier otra sucesión cuya ley de recurrencia sea la misma. 


listado del programa: 


10 REM IICA: 
20 REM 


30 REM SUCESION DE FIBONACCI 

40 REM 

50 REM IRA 
100 PRINT 


110 PRINT "CUANTOS TERMINOS DE LA SUCESION DESEA FORMAR"; 
120 INPUT P 

130 PRINT 

140 N=1 

150 A=1 

160 PRINT "INDICE", "TERMINO" 
170 PRINT "AXAXXX",. "AXKHALAX" 
180 PRINT N,A 

190 N=2 

200 B=1 

210 PRINT N,B 

220 N=N+1 

230 C=B+A 

240 PRINT N,C 

250 A=B 

260 B=C 

270 IF N<P THEN GOTO 220 

280 END 
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1. Formar los 35 primeros términos de la sucesión de FIBONACCI. 
SOLUCION: 


CUANTOS TERMINOS DE LA SUCESION DESEA FORMAR? 35 


INDICE TERMINO 
ES 

1 1 
2 1 
3 2 
4 3 
5 5 
6 8 
2 13 
2 21 
ad 34 
10 55 
11 89 
12 144 
13 233 
14 377 
15 610 
16 987 
1? 1597 
18 2584 
19 4181 
20 6765 
21 10946 
22 17711 
23 28657? 
24 46368 
25 75025 
26 121393 
27 196418 
28 317811 
29 514229 
30 g£832040 
31 1346269 
32 2178309 
33 3524578 
34 5702887 


35 9227465 


OPERACIONES CON NUMEROS COMPLEJOS EN 
FORMA BINOMICA 


introducción: 


Este programa sirve para sumar, restar, multiplicar y dividir núme- 
ros complejos escritos en forma binómica. En las lineas. 120 y 160 se introdu 
cen cada uno de los dos números complejos, escribiendo primero la parte 
real separada por una coma de la parte imaginaria. 


listado del programa: 


10 REM IRA: 
20 REM 


30 REM OPERACIONES CoN NUMEROS COMPLEJOS 
40 REM 

50 REM EN FORMA BINOMICA 

60 REM 


70 REM III III III 
100 PRINT 

110 PRINT "INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA" 
120 PRINT 

129 REM -ENTRADA DE DATOS - 

130 PRINT "COMPLEJO  Z1 ="; 

140 INPUT X1,Y1 

150 PRINT "COMPLEJO 22 ="; 

160 INPUT X2,Y2 

170 PRINT 

180 PRINT 

190 PRINT 

199 REM - SUMA DE COMPLEJOS - 

200 XS=X1+X2 

210 YS=Y1+Y2 

220 PRINT "COMPLEJO SUMA 1 Z14+Z2 ="3XS; 
230 IF YS>=0 THEN PRINT "+"; 

240 PRINT YS;"i" 

250 PRINT 

259 REM - DIFERENCIA DE COMPLEJOS - 

260 XR=X1-X2 

270 YR=Y1-Y2 

280 PRINT “COMPLEJO DIFERENCIA : Z1-Z2 =";XR;5 
290 IF YR>=0 THEN PRINT "+"5 

300 PRINT YR3"i" 
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310 PRINT 

319 REM - PRODUCTO DE COMPLEJOS - 

320 XP=X1XX2-Y1XYZ 

330 YP=X1XY2+Y1XX2 

340 PRINT "COMPLEJO PRODUCTO 1 Z1XZ2 ="3XP;5 
350 IF YP>=0 THEN PRINT "+"; 

360 PRINT YPj3"i" 

370 PRINT 

379 REM - COCIENTE DE COMPLEJOS - 

380 IF X2=0 AND Y2=0 THEN GOTO 460 

390 M=X2XX2+Y2X*Y2 

4900 XC=(X1XX24+Y1XYZ2)/M 

410 YC=(-X1XY2Z+Y1XX2)/M 

420 PRINT "COMPLEJO COCIENTE 2 Z1/Z2 ="3XC; 
430 IF YC>=0 THEN PRINT "+"; 

440 PRINT Yc;"i" 

450 STOP 

460 PRINT "NO ES POSIBLE LA DIVISION POR EL COMPLEJO NULO" 
470 END 


ejercicios resueltos: 


1. ados los complejos: z, = 12 =-8 d y Zz,=3-7i, calcular: 


+ z La 


Za, 2' 45 Zo 
SOLUCION: 


INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA 


COMPLEJO 21 =? 12 -8 
COMPLEJO Z2 =? 3 =2 
COMPLEJO SUMA 2 Z1+Z2 = 15 -15 i 


COMPLEJO DIFERENCIA : Z1-2Z2 = 9 -1 i 


COMPLEJO PRODUCTO 1 Z1iXxZ2 =-20 -108 i 
COMPLEJO COCIENTE 1 Z1/Z2 = 1.5262069 + 1.0344828 i 
2. Dados los complejos: 24 = 7+ 13 i y z, = O0+0 ui, calcular: 
> az 
1 * 9 e E Br 14% 


SOLUCION: 


INTRODUZCA LA PARTE REAL Y LA IMAGINARIA SEPARADAS POR UNA COMA 


COMPLEJO 21 =? 7 
COMPLEJO Z2 =? O jo) 
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COMPLEJO SUMA 


COMPLEJO DIFERENCIA 


COMPLEJO PRODUCTO 


z1+22 


Z1-Z2 


Z1X*Z2 


NUMEROS COMPLEJOS 


7 + 13 1 
7 + 3 id 


0+01i 


NO ES POSIBLE LA DIVISION POR EL COMPLEJO NULO 


3. Dados los complejos: z, = 6 + 7 i y 2, = -5 + 17 i, calcu- 


lar: 


z 


1 + z21 


SOLUCION: 


INTRODUZCA LA PARTE REAL Y 


COMPLEJO 
COMPLEJO 


COMPLEJO 


COMPLEJO 


COMPLEJO 


COMPLEJO 


¿dl => 6 
22 =?-5 


suma 
DIFERENCIA 
PRODUCTO 


COCIENTE 


N 


LA IMAGINARIA SEPARADAS POR UNA COMA 


= 1+ 24 1 


= 11 -10 i 


=-149 + 67 i 


= .28343949 -.43630573 i 


CONVERSION DE COORDENADAS CARTESIANAS A 
POLARES Y VICEVERSA 


introducción: 


Este programa sirve para pasar un número complejo expresado en 


coordenadas cartesianas (x,y) a coordenadas polares (r,w) y reciprocamente. 


Donde r es el módulo del número complejo y w es su argumento. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

[=10] 

90 

100 
110 
120 
130 
1340 
150 
160 
169 
1>0 
120 
1920 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM IRRRRSRIOIRROOIROOIOIOIIROIIOIOIRIOIRORRIOIRRNROORORRORROOISOOIROOOIOOOIOOIOIAIAAA 
REM 
REM CONVERSION DE COORDENADAS CARTESIANAS A POLARES 
REM 
REM Y RECIPROCAMENTE 
REM 
REM FIONA: 
PRINT 
PRINT 
PRINT 
PRINT "DE POLARES A CARTESIANAS PULSE 1” 
PRINT "DE CARTESIANAS A POLARES PULSE 2" 
INPUT N 
IF N=1 THEN GOTO 330 
PRINT 
PRINT 
REM - DE CARTESIANAS A POLARES - 
PRINT "INTRODUZCA LAS COORDENADAS CARTESIANAS SEPARADAS POR UNA COMA" ; 
INPUT X,Y 
R=SOR (XXX+YXY) 
IF X=0 AND Y=0 GOTO 240 
IF X=0 THEN X=(.1)*30 
IF X>0 AND Y=0 GOTO 240 
W=Y/X 
v=0 
U=ATN (W) 
IF Xx<0 THEN V=V+PI 
IF V<O THEN V=U+2X*XPI 
PRINT 
PRINT "LAS COORDENADAS POLARES SON: " 
PRINT "MODULO "5R 
PRINT "ARGUMENTO ="3V;"radianes" 


GOTO 80 
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329 REM - DE POLARES A CARTESIANAS - 

330 PRINT "INTRODUZCA LAS COORDENADAS POLARES" 
340 PRINT "MODULO R="; 

350 INPUT R 

360 PRINT "ARGUMENTO W ="; 

370 INPUT W 

380 X=RXCOS (W) 

390 Y=RXSIN(W) 

400 PRINT 

410 PRINT "LAS COORDENADAS CARTESIANAS SON : ES O E 
420 GOTO s0 

430 END 


ejercicios resueltos: 


Lucie a coordenadas cartesianas los siguientes números complejos 


expresados en forma polar: z= 3 5 z = 4/2 


SOLUCION: 


DE POLARES A CARTESIANAS PULSE 1 
DE CARTESIANAS A POLARES PULSE 2 

? 1 

INTRODUZCA LAS COORDENADAS POLARES 
MODULO R=?3 

ARGUMENTO W =”? 3.1415927 


LAS COCQRDENADAS CARTESIAMAS SON 2 (-3 ,-1.3224576E-072 =(-3, 0) 


Obsérvese que -1.3824566E-07 es una aproximación de cero. 


DE POLARES A CARTESIANAS PULSE 1 
DE CARTESIANAS A POLARES PULSE 2 


PE 
INTRODUZCA LAS COORDENADAS POLARES 
MODULO R=? 4 


ARGUMENTO W =? 1.5707963 


LAS COORDENADAS CARTESIANAS SON : ( 1.0734?733E-07 , 4 ) (O, 4) 


EA Pasar a coordenadas polares los siguientes números complejos expre- 
sados en forma cartesiana: z = (5, 5); z == (-7, 5) 
SOLUCION: 


INTRODUZCA LAS COORDENADAS CARTESIANAS SEPARADAS POR UNA COMA? 5 


cn 


LAS COORDENADAS POLARES SON: 
MODULO = 7.0710678 
ARGUMENTO = .78539816 radianes 
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DE POLARES A CARTESIANAS PULSE 1 
DE CARTESIANAS A POLARES PULSE 2 
2 2 


INTRODUZCA LAS COORDENADAS CARTESIANAS SEPARADAS POR UNA 
LAS COORDENADAS POLARES SON: 


MODULO = 8.6023253 
ARGUMENTO = 2.5213432 radianes 


COMA?-2 
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POTENCIACION Y RADICACION DE NUMEROS 
COMPLEJOS EN FORMA BINOMICA 


introducción: 


Este programa permite calcular la potencia de un número complejo en 
forma binómica y la radicación de un número complejo en forma binómica. El 
cálculo se realiza en polares para lo cual en la linea 590 se inicia una 


subrutina para la conversión de cartesianas a polares 


listado del programa: 


10 REM RRA OOOO OOOO IRON OOOOER ER A  RRR E A 
20 REM 


ZO REM POTENCIACION Y RADICACION 
40 REM 

50 REM DE NUMEROS COMPLEJOS 

60 REM 

70 REM EN FORNMA EINOMICA 

80 REM 


PO REM RIOR III RIIIE RR RAR 
100 PRINT 

110 PRINT "EL PRESENTE FROGRAMA LE FERMITE CALCULAR :" 

120 PRINT 

130 PRINT 

140 PRINT "1.-POTENCIA DE Un NUMERO COMPLEJO ESCRITG EN FORMA BINUMICA” 
150 PRINT "2.-RADICACION DE UN NUMERO COMPLEJO ESCRITO EN FORMA EINOMICA” 
160 PRINT 

170 PRINT "SEGUN LA OPCION DESEADA FULSE El NUMERO QUE LE PRECEDE" 

130 INPUT P 

1720 PRINT 

200 IF P=2 THEN GOTO 359 

209 REM - POTENCIA DE UN NUMERO COMPLEJO EN FORMA BINOMICA - 

210 PRINT "PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA CUMA"; 
220 INPUT X,Y 

230 PRINT "EXPONENTE DE LA POTENCIA DESEADA N ="; 

240 INPUT N 

250 GOSUB 590 

260 R1=R"N 

270 V1=UXN 

280 X1=R1XCOS(V1) 

290 Y1=RIXSIN(VI1) 

300 PRINT 

310 PRINT 
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. 51 


320 
330 
340 
350 
359 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
430 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
625 
630 
640 
650 
660 
670 
é620 
6790 
700 
710 
220 
730 
790 
250 
60 
270 


80 


PRINT "LA POTENCIA PEDIDA ES =";xX1; 
IF Y1>=0 THEN PRINT "+"; 


PRINT Y1iz vi" 


GOTO 700 
REM - RADICACION DE UN NUMERO COMPLEJO EN FORMA BINOMICA - 


PRINT "PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA 
INPUT X,Y 


PRINT "INDICE DE LA RAIZ DESEADA N ="; 
INPUT N 

GOSUB 590 

RZ=R" (1/N) 

U2=4/N 

PRINT 

PRINT 

PRINT "ORDEN DE LA RAIZ", "VALOR DE LA RAIZ" 
PRINT 

PRINTER MR 
PRINT 

FOR J=1 TON 

VI=V2+2XPIX(J-1)/N 

X=R2Z*COS (V3) 

Y=R2ZXSIN(V3) 

PRINT " "$3; 

PRINT " "5 INT(1000£X+.5)/1000; 
IFY>=0 THEN PRINT "+"; 

PRINT INT(1000XY+.5)/1000;"i" 

NEXT J 

GOTO 700 

REM - SUBRUTINA DE CONVERSION DE CARTESIANAS A POLARES - 
R=SQR (XXX +YXY) 

IF X=0 AND Y=0 GOTO 650 

IF X=0 THEN X=(.1)"30 

IF Y=0 THEN Y=(.1)*30 

IF X>0 AND Y=0 GOTO 650 

W=Y/X 

U=0 

U=ATN (W) 

IF X<0 THEN V=V+PI 

IF V<O THEN V=V+2XPI 


RETURN 

REM - PARA REALIZAR MAS CALCULOS - 

PRINT 

PRINT 

PRINT 

PRINT "DESEA CONTINUAR REALIZANDO OTRA OPCION 2 S/N"; 
INPUT C$ 

IF C$="N" THEN 2830 

GOTO 170 

END 


ejercicios resueltos: 


1. Calcule las siguientes potencias: (10)? ts a09?, (-2+71)8; 
.,18 

(1-1). 

SOLUCION: 


COMA"; 
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$28 NUMEROS COMPLEWOS —— 


EL PRESENTE PROGRAMA LE FERMITE CALCULAR : 


1.-POTENCIA DE UN NUMERO COMPLEJO ESCRITO EN FORMA BINOMICA 
2.-RADICACION DE UN NUMERO COMPLEJO ESCRITO EN FORMA BINOMICA 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 

p Y 

PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 1 1 
EXPONENTE DE LA POTENCIA DESEADA N =? 5 


LA POTENCIA PEDIDA ES =-4 -4 i 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N?S 

SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 

2d 

PARTE REAL E IMAGINARIA DEL NUMERO COMFLEJO SEPARADAS POR UNA COMA?-5 5 
EXPONENTE DE LA POTENCIA DESEADA —N =2 ? 


(8) 


LA POTENCIA PEDIDA ES = 1236490 + 1372 1 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N?S 

SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE FRECEDE 

* A 

PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA?-2 ? 
EXPONENTE DE LA POTENCIA DESEADA N =7? ú 


LA POTENCIA PEDIDA ES = 14715 -1432148 i 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N?S 

SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 

Sd 

PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA coma? 1 =d 
EXPONENTE DE LA POTENCIA DESEADA N =7 18 


LA POTENCIA PEDIDA ES = 2.2470422E-06 -512 i =-512 i 


T, Calcular la raiz cuadrada del complejo: z = 5+ 51 
SOLUCION: 


PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? S 
INDICE DE LA RAIZ DESEADA N =? 2 


cn 


ORDEN DE LA RAIZ VALOR DE LA RAIZ 
FOO: ES 
1 2.457 + 1.018 i 


2 -2.457 -1.018 i 
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3. Resolver las siguientes ecuaciones: ge 64 [0) q? = 13= 
SOLUCION: 


de 
PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS POR UNA COMA? 64 
INDICE DE LA RAIZ DESEADA N =? 8 


ORDEN DE LA RAIZ VALOR DE LA RAI. 
ES FOO 


1 1.682 + 0 i 

.189 + 1.189 i 
+ 1.682 i 

«139 + 1.189 

682 + 0 i 

.189 -1.189 i 
-1.682 i 

8 1.189 -1.189 i 


Or -r-rO0-+»- 


DESEA CONTINUAR REALIZANDO OTRA OPCION ? S/N?S 
SEGUN LA OFCION DESEADA PULSE EL NUMERO QUE LE PRECEDE 


>2 


PARTE REAL E IMAGINARIA DEL NUMERO COMPLEJO SEPARADAS FOR UNA COMA? 1 
INDICE DE LA RAIZ DESEADA N =? 3 


ORDEN DE LA RAIZ VALOR DE LA RAIZ 
TON AAA UH RARA 
1 1 +. 0 1 


OPERACIONES CON NUMEROS COMPLEJOS EN 


FORMA POLAR 


introducción: 


Este programa permite calcular: 


1.- El producto de dos números complejos en forma polar. 


2.- El cociente de dos números complejos en forma polar. 


3.- La potencia n-esima de cada uno de los dos complejos en forma polar 


4.- Las raices n-esimas de cada uno de los dos complejos en forma polar. 


Es preciso introducir los dos complejos en coordenadas polares. 


En caso de que los argumentos estén en radianes, basta con modificar la 


linea 790 del siguiente modo: 


790 W7=W6+2*PI* (3-1) /N 


y sustituir todas las palabras GRADOS que figuran en el programa por la 
palabra RADIANES. 


listado del programa: 


10 
20 
30 
40 
50 
60 
yo) 
100 
110 
120 
130 
140 
150 
160 
170 
1380 
190 
200 
209 
210 


REM x% 
REM 
REM 
REM 
REM 
REM 
REM X% 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
REM - 
PRINT 


FERIAS OR MEE EA 
DPERACIONES CON NUMEROS COMPLEJOS 
EN FORmMA POLAR 


FOIOS IO IO OOOO 


"EL PRESENTE PROGRAMA LE PERMITE CALCULAR :” 


"1.-PRODUCTO DE DOS NUMEROS COMPLEJOS EN FORMA POLAR” 
"2.-COCIENTE DE DOS NUMEROS COMPLEJOS EN FORMA POLAR" 
"3.-POTENCIA N-ESIMA DE CADA UNO DE LOS DOS COMPLEJOS EN FORMA POLAR" 
"4.-RAICES N-ESIMAS DE CADA UNO DE LOS DOS COMPLEJOS EN FORMA POLAR" 


ENTRADA DE DATOS - 
"MODULO DEL COMPLEJO Zi, RI ="; 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
339 
340 
350 
360 
370 
379 
390 
400 
410 
420 
429 
430 
440 
450 
460 
469 
470 
480 
490 
500 
509 
510 
520 
530 
540 
550 


560 
570 
580 
7200 
710 
720 
730 
740 
750 
760 
270 
780 
290 
800 
810 
820 
830 
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—_—_—_ —_—_——_u—__==-==z2  ___ —> 


INPUT Ri 

PRINT "ARGUMENTO DEL COMPLEJO Z1, Wi ="; 

INPUT Wi 

PRINT 

PRINT "MODULO DEL COMPLEJO 22, R2 ="; 

INPUT R2 

PRINT "ARGUMENTO DEL COMPLEJO 22,  W2Z ="; 

INPUT W2 

PRINT 

PRINT "EXPONENTE - INDICE PARA LA POTENCIACION Y LA RADICACION N="; 
INPUT ON 

PRINT 

REM - PRODUCTO DE NUMEROS COMPLEJOS - 

RM=RIXR2 

UM=41+W2 

PRINT "EL COMPLEJO PRODUCTO ES Z1XZ2 = MODULO"5RM3", ARGUMENTO"; WM; "GRADOS" 
PRINT 

REM - COCIENTE DE NUMEROS COMPLEJOS - 

RC=R1/R2 

WC=W1-W2 

PRINT "EL COMPLEJO COCIENTE ES  Z1/Z2 = MODULO";RC;", ARGUMENTO"; WC; "GRADOS" 
PRINT 

REM - POTENCIA N-ESIMA DE Zi - 

RI=RION 

WI=W1%N 

PRINT "POTENCIA N-ESIMA DE Z1 = (Z1)"N = MODULO";R3;", ARGUMENTO"; W3; "GRADOS" 
PRINT 

REM - POTENCIA N-ESIMA DE Z2 - 

R4=R2Z"N 

WI=WZXN 

PRINT "POTENCIA N-ESIMA DE 22 = (Z2)"N = MODULO";R43", ARGUMENTO";W4; "GRADOS" 
PRINT 

REM - RAICES N-ESIMAS DE Z1 - 

R=R1 

W=w1 

GOSUB 700 

PRINT 

R=R2 

W=42 

GOSUB 700 

END 

Ró=R” (1/N) 

Wó=W/N 

PRINT 

PRINT 

PRINT "ORDEN DE LA RAIZ", " VALOR DE LA RAIZ ss 

PRINT 

PRINT RAMONA MERO" 

PRINT 


FOR J=1 TON 
W?=W6+360X (J-1)/N 
PRINT ” "3J, 
PRINT 
NEXT J 
RETURN 


"MODULO"5Ró3", ARGUMENTO” 3W75 "GRADOS" 
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CI A AAA 


ejercicios resueltos: 


1. Dados los complejos: z¡ = 64,290 y Z2= 1,890 , se pide, calcular: 
a) El complejo producto 21 -2) 
b) El complejo cociente 2,/2) 
Cc) Las potencias de índice 6 de z, y de Z) 
d) Las raices sextas de 2 Y de 2, 


SOLUCION: 


MODULO DEL COMPLEJO 21, Ri =7? 64 
ARGUMENTO DEL COMPLEJO Zi, wi =? 120 
MODULO DEL COMPLEJO 22, R2 =? 1 

ARGUMENTO DEL COMPLEJO Z2, wz =7? 130 


EXPONENTE - INDICE PARA LA POTENCIACION Y LA RADICACIÓN N =? 6 


EL COMPLEJO PRODUCTO ES Z1XZ2 


MODULO 64 ¿ARGUMENTO 300 GRADOS 


EL COMPLEJO COCIENTE ES 21/22 


MODULO 64 ,ARGUMENTO-60 GRADOS 


POTENCIA N-ESIMA DE Z1 = (Z1)"N = MODULO 6.8719477E+10 ¿ARGUMENTO 720 GRADOS 
POTENCIA M-ESIMA DE Z2 = (Z2)"N = MODULO 1 ARGUMENTO 1080 GRADOS 
el argumento principal será: 0” 
ORDEN DE LA RAIZ VALOR DE LA RAIZ 
ACACIA: FAO 
5? MODULO 2 ARGUMENTO 20 GRADOS 
2 MODULO 2 ,ARGUMENTO 80 GRADOS 
3 MODULO 2 ¡ARGUMENTO 140 GRADOS 
4 MODULO 2 ARGUMENTO 200 GRADOS 
5 MODULO 2 , ARGUMENTO 260 GRADOS 
é MODULO 2 ,ARGUMENTO 320 GRADOS 
ORDEN DE LA RAIZ VALOR DE LA RAIZ 
AICA: IICA: 
1 MODULO 1 ARGUMENTO 30 GRADOS 
2 MODULO 1 ¿ARGUMENTO 90 GRADOS 
3 MODULO 1 ,ARGUMENTO 150 GRADOS 
4 MODULO 1 ARGUMENTO 210 GRADOS 
5 MODULO 1 ,ARGUMENTO 270 GRADOS 
6 MODULO 1 ,ARGUMENTO 330 GRADOS 
Le Dados ios complejos: 2, = 3300 y z, = 4450 , Calcular: 


a) El complejo producto 2-2) 
b) El complejo cociente 2,/2, 


Cc) Las potencias de índice 5 de z 


d) Las raices quintas de 2, Y 
SOLUCION: 


MODULO DEL COMPLEJO Zi, Ri 
ARGUMENTO DEL COMPLEJO Zi, wi 
MODULO DEL COMPLEJO Z2, R2 = 
ARGUMENTO DEL COMPLEJO Z2, w2 
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1 


de 2, 


y de z 


2 


EXPONENTE - INDICE PARA LA POTENCIACION Y LA RADICACION N =?5 


EL COMPLEJO PRODUCTO ES zZ1Xx22 


EL COMPLEJO COCIENTE ES z1/Z2 


POTENCIA N-ESIMA DE Z1 (Z1)N 


POTENCIA N-ESIMA DE 22 (22) N 


ORDEN DE LA RAIZ 


IIA 
1 MODULO 
2 MODULO 
3 MODULO 
4 MODULO 
5 MODULO 


ORDEN DE LA RAIZ 


FIAR: 
1 MODULO 
2 MODULO 
3 MODULO 
9 MODULO 
5 MODULO 


MODULO 


MODULO 


MODULO 


MODULO 243 


12 ARGUMENTO 275 GRADOS 


.75 ¿ARGUMENTO-15 GRADOS 


«ARGUMENTO 150 GRADOS 


1024 ,ARGUMENTO 225 GRADOS 


VALOR DE LA RAIZ 


1.2457309 
1.2457309 
1.2457309 
1.2457309 
1.2457309 


y ARGUMENTO 
« ARGUMENTO 
, ARGUMENTO 
« ARGUMENTO 
y ARGUMENTO 


VALOR DE LA RAIZ 


1.3195079 
1.3195079 
1.3195079 
1.3195079 
1.3195079 


3. Dados los complejos: z, = 8 


y ARGUMENTO 
y ARGUMENTO 
« ARGUMENTO 
« ARGUMENTO 
, ARGUMENTO 


1 or Y 29 5 
a) El complejo producto 2/2, 
b) El complejo cociente 2/2, 
Cc) Las potencias de índice 3 de 24 Y de Z, 
d) Las raices cúbicas de Zy Y de 2) 
SOLUCION: 
MODULO DEL COMPLEJO Zi, R1 =? 8 
ARGUMENTO DEL COMPLEJO Zi, Wi => 0 
MODULO DEL COMPLEJO Z2, R2 =? 27 
ARGUMENTO DEL COMPLEJO 22, w2 =7? 90 


IRON 


6 GRADOS 
78 GRADOS 
150 GRADOS 
222 GRADOS 
294 GRADOS 


ES 


9 GRADOS 

81 GRADOS 
153 GRADOS 
225 GRADOS 
297 GRADOS 


27990 , Calcular: 
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3 __ _ _ _ __ _I“ O, Ae  _ __ _»>-z>-z-=2 KK KK K<2<2— 


EXPONENTE - INDICE PARA LA POTENCIACION Y LA RADICACION N =? 3 


EL COMPLEJO PRODUCTO ES zZ1XZ2 MODULO 216 ¡ARGUMENTO 20 GRADOS 


EL COMPLEJO COCIENTE ES z1/Z2 MODULO .2962763 ,¿ARGUMENTO-90 GRADOS 


POTENCIA N-ESIMA DE Z1 = (Z1)*"N = MODULO S12 ARGUMENTO O GRADOS 
POTENCIA N-ESIMA DE Z2 = (22)"N = MODULO 19683 ARGUMENTO 270 GRADOS 
ORDEN DE LA RAIZ VALOR DE LA RAIZ 
PARO: FORDORRIOAIRIORIOIOIORIOORIOIOIOOIOAAA 

ón MODULO 2 ¿ARGUMENTO O GRADOS 

2 MODULO 2 ARGUMENTO 120 GRADOS 

3 MODULO 2 ¿ARGUMENTO 240 GRADOS 
ORDEN DE LA RAIZ VALOR DE LA RAIZ 
FOO: FOIOS: 

1 MODULO 3 ¿ARGUMENTO 30 GRADOS 

2 MODULO 3 ¡ARGUMENTO 150 GRADOS 

3 MODULO 3 ¿ARGUMENTO 270 GRADOS 


ECUACION ALGEBRAICA DE SEGUNDO GRADO 


introducción: 


Este programa sirve para calcular las raices reales y complejas de 
ecuaciones algebráicas de 2” grado. Para su ejecución, basta con introducir 


los coeficientes de x?, de x, y el término independiente. 


listado del programa: 


10 REM POROROOROROCOROOOOOOIORIORIORIORIAIORIOIOIORIOIAOOAIOCIOIOAAAIIAAA A 


20 REM 

ZO REM RESOLUCION DE ECUACIONES 

40 REM 

50 REM ALGEBRAICAS DE SEGUNDO GRADO 
60 REM 

70 REM IAORORIODICOOOOIORIEORIOIAOOORIODIAOOIOORIORRICIAOORICOOIAICAAIIIAAAA 
100 PRINT 

107% REM - ENTRADA DE DATOS - 

110 PRINT "COEFICIENTE DE X*%2 .... A= "; 

120 INPUT A 

130 PRINT "COEFICIENTE DE x 2... B= "j 


140 INPUT B 

150 PRINT "TERMINO INDEPENDIENTE Cc 
160 INPUT C 

170 D=B"2-4x*xAXC 

2580 IF D¿0 THEN GOTO 260 

190 X1=(-B+SQR(D))/(2*XA) 

200 x2=(-B-SOR(D))/(2%A) 

210 PRINT 

220 PRINT "LAS RAICES DE LA ECUACION SON REALES :" 


'" 


230 PRINT "Xi = "; x1 
240 PRINT "X2 = "; x2 

250 STOP 

260 R=-B/(2*A) 

270 Y=SOR(-D)/(2XA) 

280 PRINT 

270 PRINT "LAS RAICES DE LA ECUACION SON COMPLEJAS :" 
300 PRINT "X1 = "5 Roe jrzrio 

310 PRINT "X2 = "5 R p9orjrzrir 


320 END 


60 RESOLUCION DE ECUACIONES 
se  _  ___Q__Q_QQQQQQQQQQQQAAA4A24Ag A 44 zm 2 


ejercicios resueltos: 


P 2 
¿ p Resolver la ecuación: x"+2x-3=0 
SOLUCION: 
COEFICIENTE DE X"2 .... A= ? 1 
COEFICIENTE DE X iia BS PZ 
TERMINO INDEPENDIENTE C = ?-3 
LAS RAICES DE LA ECUACION SON REALES : 
Xi= 1 
xX2 = -3 
2 . 2 

e Resolver la ecuacion: x -8x+16=0 
SOLUCION: 
COEFICIENTE DE X"2 ....A= 7? 1 
COEFICIENTE DE x» .... B= ?-8 
TERMINO INDEPENDIENTE Cc =? 16 
LAS RAICES DE LA ECUACION SON REALES : 
xi= 4 
xa <= 4 

3 ' 2 _ 
+. Resolver la ecuación: x"-6x3+13= 0 


SOLUCION: 


COEFICIENTE DE X*2 ,.... A 


=>? 1 
COEFICIENTE DE X  .... B= 7-6 
TERMINO INDEPENDIENTE C= ? 13 


LAS RAICES DE LA ECUACION SON COMPLEJAS : 
x= 3+2i 
x2 3-21 


4. Resolver la ecuación: 2x? +4$3x+4=0 
SOLUCION : 


COEFICIENTE DE X"*2 .... A = ? 2 
COEFICIENTE DE Xx .... B= ?3 
TERMINO INDEPENDIENTE e 24 


LAS FAICES DE LA ECUACION SON COMPLEJAS : 
xX1i = -.75 + 1.1989579 i 
xX2 = -.275 - 1.1989579 á 


BUSQUEDA DE RAICES: METODO DE BISECCION 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de la bisección está basado en el teorema de Bolzano y es un pro 
cedimiento iterativo que consiste en ir haciendo cada vez menor el interva 
lo que contiene a una raiz. La iteracción se para cuando el intervalo que 
contiene a la raiz es menor que el error máximo deseado prefijado D. 

La función se introduce en la linea 270 en la forma: 270 Y = F(x) 
a continuación se introducen los límites del intervalo en el que se trata 
de ver si existe una raiz para la función. 

La linea 370 sirve para ver como se realiza la convergencia hacia 
la raiz en las sucesivas iteracciones. En caso de que unicamente se quiera 


la raiz, se puede omitir la linea 370, 


listado del programa: 


EEE AAN 
20 REM 

30 REM BUSQUEDA DE RAICES REALES DE 

40 REM 

50 REM FUNCIONES (METODO DE LA BISECCION) 

60 REM 

70 REM RRA III III 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270" 


120 PRINT "DEL—-SIGUIENTE MODO 2: 270 Y = .....oo..” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR" ; 
160 INPUT X0,X1 

170 PRINT "ERROR MAXIMO DESEADO"; 

180 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 

200 INPUT 1 

210 GOSUB 290 
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219 REM - SALIDA DE RESULTADOS - 


220 FRINT 

230 PRINT "UNA RAIZ ES X ="3 X ¿"CON UN ERROR MENOR GUE"5D 
240 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES ="3Y 
250 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES ="3J 
260 GOTO 450 

270 Y= 

280 RETURN 

290 J=0 

300 X=X0 

310 GOSUB 270 

320 YO=Y 


730 X=X1 

340 GOSUB 270 

2350 X=(X0+X1)/2 

360 GOSUB 270 

7269 REM - SI SE DESEA VER LA CONVERGENCIA HACIA LA RAÍZ INCLUIR LINEA 5:60 - 
370 PRINT J,X 

380 J=J+1 

390 IF J>=1I THEN 440 

400 IF YXYO O THEN GOTO 440 
410 IF YXYO O THEN. Xi=X 

420 IF Y*XYO O THEN  X0=X 

4730 IF ABS(X0-X1)>D THEN GOTO 300 
440 RETURN 

450 END 


se mol 


ejercicios resueltos: 


L catentas: las raices de la ecuación: y = XxX +3 xXx" - 4 x- 12 
SOLUCION: 
Estudiaremos la función en los siguientes intervalos: (0,5); (-6, 2.5) 
(-2.5, O) y (5, 10) 


DEFINA .LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO” : 270 Y = 
A CONTINUACION PULSAR <CONT> 
ZO Y= XAXAXA DAX AMA 12 


1? Ejecución: 

LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR? O 5 
ERROR MAXIMO DESEADO? 1E-06 G 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
2.5 

1.25 

1.875 

2.1875 

2.03125 

1.953125 

1.9921875 

2.0117187 

2.0019531 

1.9970703 

1.9995117 

2.0007324 
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12 2.0001221 
13 1.9998169 
14 1.9999695 
15 2.0000458 
16 2.0000076 
1? 1.9999886 
18 1.9999981 
19 2.0000029 
20 2.0000005 
21 1.9999993 
22 1.9999999 


UNA RAIZ ES X= 1.9999999 CON UN ERROR MENOR QUE 1E-06 
EL VALOR CORRESPONDIENTE PARA Y ES =-2.3841858E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 23 


2% Ejecución: 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR?-6 -2.5 
ERROR MAXIMO DESEADO? .00001 


NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


o -4.25 
1 -3.375 

2 -2.9375 

3 -3.15625 

4 -3.046875 

5 -2.9921875 
6 -3.0195312 
> -3.0058594 
8 -2.9990234 
9 -3,0024414 
10 -3.0007324 
11 -2.9998779 
12 -3.0003052 
13 -3.0000916 
14 -2.9999847 
15 -3.0000381 
16 -3.0000114 
17 -2.9999981 
18 -3.0000048 


UNA RAIZ ES X =-3.0000048 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-.000023842091 
EL NUMERO DE ITERACCIONES REALIZADO ES = 19 


3? Ejecución: 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR?-2.5 [o] 
ERROR MAXIMO DESEADO? 1E-08 


NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


UNA RAIZ ES X =-2 CON UN ERROR MENOR QUE 1E-08 
EL VALOR CORRESPONDIENTE PARA Y ES = 7.4505806E-09 
EL NUMERO DE ITERACCIONES REALIZADO ES = 28 
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qe Ejecución: 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR? S 10 
ERROR MAXIMO DESEADO? l1E-06 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


UMA RAIZ ES Xx = 9.97?279994 CON UN ERROR MENOR QUE 1E-06 
El VALOR CORRESPONDIENTE PARA Y ES = 1247.99783 
FL NUMERO DE ITERACCIONES REALIZADO ES = 23 


En las dos primeras ejecuciones hemos visto como convergen los valores ha- 
cia la raiz. En la tercera ejecución hemos quitado la instrucción 370 para 
obtener unicamente la raiz. 

En estos casos como existe una raiz en los intervalos dados, la busqueda 
converge hacia la raiz proporcionandonos una aproximación de ella. En cam- 
bio en la cuarta ejecución, como el intervalo (5, 10) no contiene ninguna 
raiz, la iteracción acaba en uno de los extremos del intervalo produciendo 
se aparentemente un error, que se detecta facilmente al ver que el valor 


de la y correspondiente no tiende a cero como en los otros casos. 


2. Calcular una raiz de la función: y = xX- 2 cos x enel interyalo 
5 


(0, 7/2) con un error de 10. 
SOLUCION : 


DEFIMA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = 2..oooo.o.. 

A CONTINUACION PULSAR <CONT> 

270 Y = X-2XCOS(X 


LIMITES DEL INTERVALO : INFERIOR Y SUPERICR? O 1.57 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


0 . 285 

1 1.1275 

2 28125 

3 1.0793? 

4 1.0303125 
5 1.0057813 
é 1.0180469 
? 1.0241797 
El 1.0272461 
2 1.0287793 
10 1.0295459 
11 1.0299292 
12 1.0297375 
13 1.0298334 
14 1.0298813 
15 1.0298573 
16 1.0298693 
17 1.0298633 


UNA RAIZ ES X = 1.0298633 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-8.712057E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 18 
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3. Calcular una raiz de la función: y = e* + x enel intervalo (-1,0) 


con un error de 10”*, 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = .2...o... 

A CONTINUACION PULSAR <CONT> 

270 Y=EXP (X)+X 


LIMITES DEL INTERVALO : INFERIOR Y SUPERIOR?-1 [o] 
ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES «A REALIZAR? 60 
=.5 

=.75 

-.625 

-.5625 

«59375 

578125 

.5703125 

.56640625 

.56835938 

.56738281 

-.56689453 

-,56713867 

-.56726074 

-.56719971 

-.56716919 

-.56715393 

-.5671463 


o A] 
MANO 
y 


(0 


UMA RAIZ ES X =-.5671463 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE FARA Y ES  =-4.7184221E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 17 


BUSQUEDA DE RAICES: METODO DE NEWTON 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de Newton es un procedimiento iterativo de forma que en cada nue 
va iteracción obtenemos un valor más aproximado del verdadero valor de la 
raiz. Es preciso introducir un valor inicial o valor de conjetura. 

La función se introduce en la linea 310 en la forma: 310 Y = F(X) 
y en la linea 320 se introduce la derivada de la función, en la forma si- 
guiente: 320 DY = F'(X). 

La linea 360 sirve para ver como se realiza la convergencia hacia 
la raiz en las sucesivas iteracciones. En caso de que unicamente se desee 
la raiz, se debe omitir la linea 360. 


listado del programa: 


10 REM III III III IRA 
20 REM 


30 REM BUSQUEDA DE RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE NEWTON) 

60 REM 


70 REM ATA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 310" 

120 PRINT "DEL SIGUIENTE MODO : 310 Y S...ooo..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 


140 STOP 

150 PRINT "DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320" 
160 PRINT "DEL SIGUIENTE MODO : 320 DY S........” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

180 STOP 


190 PRINT "INTRODUZCA UN VALOR INICIAL"; 
200 INPUT *XO 

210 PRINT "ERROR MAXIMO DESEADO"; 

220 INPUT D 
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230 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 
240 INPUT 1 

250 GOSUB 340 

259 REM - SALIDA DE RESULTADOS - 


260 PRINT 
270 PRINT "UNA RAIZ ES X ="3 X 5"CON UN ERROR MENOR QUE";D 
230 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES ="j,Y 


290 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES =";3J 
300 GOTO 440 

310 Y= 

320 DY= 

330 RETURN 

340 J=0 

350 X=X0 

359 REM - SI SE DESEA VER LA CONVERGENCIA HAY QUE INCLUIR LA INSTRUCCION 360 - 
360 PRINT J,X 

370 GOSUB 310 

380 X0O=xX0-Y/DY 

390 J=J+1 

400 IF J >= I THEN GOTO 430 

410 IF ABS(Y/DY)>D THEN GOTO 350 

420 X=xX0 

430 RETURN 

440 END 


ejercicios resueltos: 


1. Calcular una raiz de la función: y = e* - cos x 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 310 
DEL SIGUIENTE MODO : 310 Y =........ 

A CONTINUACION PULSAR <CONT> 

310 Y=EXP(X)-C0S5(x) 


DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320 
DEL SIGUIENTE MODO : 320 DY =........ 


A CONTINUACION PULSAR <CONT> 
320 DY=EXP (X)+SIN(%) 


INTRODUZCA UN VALOR INICIAL? 1 
ERROR MAXIMO DESEADO? .00001 


NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 50 


e 1 

1 . 38816552 

a - 092030346 

3 . 0073463293 

4 .00005321583 

5 2.753509124E-09 
UNA RAIZ ES £ =-1.69401812E-10 CON UN ERROR MENOR QUE .00001 


EL VALOR CORRESPONDIENTE PARA Y ES = 2.9149305E-09 
EL NUMERO DE ITERACCIONES REALIZADO ES = 6 


Z. Hallar una raiz de la función: y = x(x-3) (x-5) 
SOLUCION: 
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DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 310 
DEL SIGUIENTE MODO : 310 Y “........ 

A CONTINUACION PULSAR <CONT> 

310 Y=X*(X-3)*X(X+5) 


DEFINA LA FUNCION DERIVADA DE Y=F(X) EN LA LINEA 320 
DEL SIGUIENTE MODO : 320 DY “S........ 

A CONTINUACION PULSAR <CONT> 

320 DY = IXXXX+94XX-15 


INTRODIJZCA UN VALOR INICIAL? 2 
ERROR MAXIMO DESEADO? 1E-08 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


4.8 
3.6451718 
3.129703 
3.0070404 
3.0000226 
3 


Gu0bdNro 


UNA RAIZ ES X= 3 CON UN ERROR MENOR QUE 1E-08 
EL VALOR CORRESFONDIENTE PARA Y ES = 5.5879354E-09 
EL NUMERO DE ITERACCIONES REALIZADO ES = 7 


E Hallar una raiz de la función: y = Xx - sen X 
SOLUCION: 
INTRODUZCA UN VALOR INICIAL? 1 


ERROR MAXIMO DESEADO? .0001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 40 


je] 1 

1 65514507 

2 43359037 

3 ¿2281434 

4 ¿19183231 

5 . 12780967 

6 085183233 

? 056781953 

2 .037852598 

> .02523446 

10 016822795 
11 "011215126 
12 .0074767224 
3 .0049845038 
14 . 0033230309 
15 .0022153889 
1éó .00147628584 
17? .000928466714 
18 .00065643657 
ER .00043741155 

yde] .00029172183 

UNA RAIZ ES X = .00019396122 CON UN ERROR MENOR QUE .0001 


EL VALOR CORRESPONDIENTE PARA Y ES = 4.1602277E-12 
EL NUMERO DE ITERACCIONES REALIZADO ES = 21 


BUSQUEDA DE RAICES: METODO DE LA SECANTE 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de la secante es un procedimiento iterativo, para el cuál se pre 
cisa introducir dos valores iniciales o de conjetura, el error máximo de- 
seado, y el número máximo de iteracciones a realizar. 

En la linea 270 se introduce la función, del siguiente modo: 
270 Y = F(X). 

Si se desea ver la convergencia hacia la raiz se debe incluir la 
instrucción 380. Por el contrario si unicamente se quiere el resultado del 


valor aproximado de la raiz se debe omitir la instrucción 380. 


listado del programa: 


10 REM RRRRRRRRORORAROROORARORARORDRRRRRORAORORORDORDORORDODRORERRROIAOOOOOIIIAAAAAAAA 
20 REM 


30 REM BUSQUEDA DE RAICES REALES DE 

40 REM 

50 REM FUNCIONES (METODO DE LA SECANTE) 

60 REM 

70 REM IRRRRRRORARRARRORRROORORORRRORRRRRORORORORORRRORRORAOROROROARDAORARERDORDORDRARARROOORADAAA 
100 PRINT 


109 REM - ENTRADA DE DATOS - 
110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270" 


120 PRINT "DEL SIGUIENTE MODO : 270 Y = ..cooo...” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "INTRODUZCA DOS VALORES INICIALES"; 

160 INPUT X0,X1 

170 PRINT "ERROR MAXIMO DESEADO"; 

120 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 
200 INPUT I 

210 GOSUB 290 

219 REM - SALIDA DE RESULTADOS - 

220 PRINT 
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230 PRINT "UNA RAIZ ES X ="3 X ¿"CON UN ERROR MENOR QUE";D 
240 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES ="3Y 


250 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES ="3J 
260 GOTO 460 

270 Y= 

280 RETURN 

290 J=0 

300 X=X0 

310 GOSUB 270 

320 YO=Y 


330 X=X1 

340 GOSUB 270 

350 Yi=Y 

360 IF Y1=YO THEN Y1=Y1+.0001 

370 X=(XOXY1-YOX*X1)/(Y1-YO) 

379 REM - SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ INCLUIF LINEA 
380 PRINT J,X 

390 J=J+1 

400 IF J>=1 THEN GOTO 450 

410 IF ABS(X0-X1)íD THEN GOTO 450 
420 XO=X1 

430 X1=X 

440 GOTO 300 

150 PETUPRN 

2360 END 


ejercicios resueltos: 


1. Calcular una raiz de la función : y = > - 10 x + 8 

SOLUCION: 
DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = o........ 
A CONTINUACION PULSAR <CONT> 
270 Y=X*XXXX-10%X+2 

INTRODUZCA DOS VALORES INICIALES? 1 é 
EFROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 

e 1.030303 

1 1.0666214 

2 84934948 

3 86578992 

4 .S6464651 

5 .386464088 

ó .86464029 
UNA RAIZ. ES X= .26464082 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = 1.6796637E-08 


EL NUMERO DE ITERACCIONES REALIZADO ES = ? 


N Calcular una raiz de la función: y = e*- cotg Xx 
SOLUCION: 
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DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = 


A CONTINUACION PULSAR <CONT> 
270 Y=EXP(X)-(COS(X)/SIN(X)) 


INTRODUZCA DOS VALORES INICIALES? 1 4 
ERROR MAXIMO DESEADO? .00001 > 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


o .87942748 

1 .7894727501 

2 . 49669796 

3 .53842123 

4 ¿[5316511 

5 .53138898 

ó .53139086 

2 .531372086 
UNA RAIZ.ES X= .5313908%6 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = 2.7939%677E-09 


EL NUMERO DE ITERACCIONES REALIZADO ES = €, 
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BUSQUEDA DE RAICES: METODO DE LA REGULA FALSI 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de la regula falsi o la regla de falsa posición es un procedimien 
to iterativo, tal que en cada iteracción se obtiene un valor más aproximado 
de la raiz. Al igual que el método de la secante, en este caso, se precisa 
introducir dos valores iniciales a partir de los cuales se inicia la iterac 
ción, también es preciso dar el error máximo deseado para la obtención de 
la raiz, asi como el número máximo de iteracciones a realizar. 

La función se introduce en la linea 270 del siguiente modo: 
270 Y = F(X). . 

Si se desea ver como se realiza la convergencia hacia, la raiz en las 
sucesivas iteracciones se incluirá la intrucción 410, en caso contrario se 


omitirá dicha instrucción. 


listado del programa: 


10 REM IRRRRROROOOOORRORRIRIOIOIOIOOOIOIO III III RIOR INR 
20 REM 


30 REM EUSQUEDA DE RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE LA REGULA FALSI) 

60 REM 


PO REM RR III R NIRO INR RIIORIRIIIRNAAARA 
100 PRINT 

10% REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270" 


120 PRINT "DEL SIGUIENTE MODO : 2720 Y = ¿2.....” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "INTRODUZCA DOS VALORES INICIALES"; 

160 INPUT X0O,X1 

170 PRINT "ERROR MAXIMO DESEADO"; 

150 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 
200 INPUT I 

210 GOSUB 290 
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AREA AAA —_—_—_—_———_—2—K<K—É2— 


219 REM - SALIDA DE RESULTADOS - 

220 PRINT 

230 PRINT "UNA RAIZ ES X ="3X ¿"CON UN ERROR MENOR QUE";D 
240 PRINT "EL VALOR CORRESPONDIENTE PARA Y ES = "jY 
250 PRINT "EL NUMERO DE ITERACCIONES REALIZADAS ES ="3 J 
260 GOTO 570 

270 Y=- 

280 RETURN 

290 J=0 

300 IF XOX<X1 THEN GOTO 340 

310 X=X0 

320 XO=X1 

330 X1=X 

340 X=X0 

350 GOSUB 270 

360 YO=Y 

370 X=X1 

380 GOSUB 270 

390 Yi=Y 

400 X=(XOX*Y1-YOX*X1)/(Y1-YO) 

409 REM - SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ INCLUIR LINEA 410 - 
410 PRINT J,X 

420 J=J+1 

430 IF J>=I THEN 560 

440 IF ABS(X-X1)<D THEN 560 

450 GOSUB 270 

460 IF Y*YO>O THEN GOTO 520 

470 IF YX*Y1=0 THEN 560 

480 X1=X 

490 Yi=Y 

500 YO=.5*YO 

510 GOTO 400 

520 XO=X 

530 Yo=Y 

540 Yi=.5*Y1 

550 GOTO 400 

560 RETURN 

570 END 


ejercicios resueltos: 


Es Calcular una raiz de la función: y = e + Xx 
SOLUCION :: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = 
A CONTINUACION PULSAR <CONT> 
270 Y=EXP(X)+X 


INTRODUZCA DOS VALORES INICIALES?-1 2 
ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 10 
-.81076457 

-.60735051 

-.53966461 

-.57895455 

-.5608617 

-.57020197 

-.56559764 


OOO0AdnNro 
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? -.56791297 

5] -.56675791 

Ed -.56733591 
UNA RAIZ ES X =-.56733591 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = .00060399232 


EL NUMERO DE ITERACCIONES REALIZADAS ES = 10 


INTRODUZCA DOS VALORES INICIALES?-1 2 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 


o -.81076457 

1 -.60735051 

2 -.53966%461 

3 -.57895455 

4 - 5608617 

s -.572020197 

6 - 56559764 

E -.56791297? 

2 -.566725791 

9 -.56733591 

10 -.56704698 

11 -.56719145 

12 -.56711921 

13 -.56715533 

14 -.56713727 

15 -.5671463 
UNA RAIZ ES X =-.5671463 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = 9.433561E-06 


EL NUMERO DE ITERACCIONES REALIZADAS ES = 16 


2. Calcular una raiz de la función: y= 2 x* + 3 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = ....... 

A CONTINUACION PULSAR  <CONT> 

270 VZLA A TANAKA AA 


INTRODUZCA DOS VALORES INICIALES? 2 ? 
ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 10 
1.2723361 

1.9204232 

1.8291026 

1.6881374 

1.5210734 

1.4101946 

1.4216704 

1.4149256 

1.4180014 

1.416407 


VDONGuoIAdNro 


2 
Xx 


5 x 


7 
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UNA RAIZ ES X= 1.416407 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = .028230861 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 10 


INTRODUZCA DOS VALORES INICIALES? 2 Ed 
ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
o 1.92723361 


1 1.9204232 
2 1.8291026 
3 1.ó6381374 
4 1.5210734 
5 1.4101946 
6 1.4216704 
ES 1.4149256 
e 1.4180014 
e 1.416407 
10 1.4171912 
11 1.4167964 
12 1.4169932 
13 1.4168947 
14 1.4169439 
15 1.4169193 
1ó 1.41697316 
1? 1.4169255 


UNA RAIZ. ES X= 1.4169255 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = .00010776334 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 18 


3. Calcular una raiz de la función: y = X- 3 sen x 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 270 
DEL SIGUIENTE MODO : 270 Y = ¿0....o. 

A CONTINUACION PULSAR <CONT> 

270 Y=X-3XSIN(X) 


INTRODUZCA DOS VALORES INICIALES? 1 5 
ERROR MAXIMO DESEADO? 1E-06 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 10 
1.6486045 

2.5005062 

2.0636869 

2.3350529 

2.2349181 

2.2950812 

2.269185 

2.2832108 

2.2765535 

2.2799782 


VONQOAdNro 


UNA RAIZ ES X= 2.2799782 CON UN ERROR MENOR QUE 1E-06 
EL VALOR CORRESPONDIENTE PARA Y ES = -.00648084879 
EL NUMERO DE ITERACCIONES REALIZADAS ES = 10 
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BUSQUEDA DE RAICES: METODO DE AITKEN 


introducción: 


Este programa sirve para la busqueda de raices reales de funciones. 
El método de Aitken es un procedimiento iterativo, para el que se requiere 
la introducción de un valor inicial o valor de conjetura, el error máximo 
deseado para la raiz aproximada, el número máximo de iteracciones a reali- 
zar y el factor de convergencia, (un valor normal es F = -1). 

La función se introduce en la linea 300 en la forma siguiente: 

300 Y = F(X). 

Si se desea ver como se realiza la convergencia hacia la raiz es 
preciso incluir las lineas 390 y 430, en caso contrario, cuando unicamente 
se desea el valor de la raiz, basta con omitir las dos lineas anteriormen- 
te dichas. 


listado del programa: 


10 REM IRIS 
20 REM 


30 REM BUSQUEDA DE RAICES REALES DE 
40 REM 

50 REM FUNCIONES (METODO DE  AITKEN) 

60 REM 


70 REM IRRADIA 
100 PRINT 

109 REM - ENTRADA DE DATOS 

110 PRINT "DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300" 


120 PRINT "DEL SIGUIENTE MODO : 300 Y S.acoooo..” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "INTRODUZCA UN VALOR INICIAL"; 

160 INPUT XO 

170 PRINT "ERROR MAXIMO DESEADO"; 

180 INPUT D 

190 PRINT "NUMERO MAXIMO DE ITERACCIONES A REALIZAR"; 
200 INPUT I 

210 PRINT "FACTOR DE CONVERGENCIA”; 

220 INPUT F 
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230 GOSUE 320 

239 REM - SALIDA DE RESULTADOS - 

240 PRINT 

250 PRINT "UNA RAIZ ES X ="3 X 3"CON UN ERROR MENOR QUE";3D 
260 GOSUB 300 

270 PRINT "EL VALOR. CORRESPONDIENTE PARA Y ES =";,Y 

280 PRINT "EL NUMERO DE ITERACCIONES REALIZADO ES =";J 
290 GOTO 560 

300 Y= 

2310 RETURN 

320 J=0 

330 X=X 

340 GOSUB 300 

350 Y=X+YXF 

360 IF J>0 THEN GOTO 420 

320 Xi=Y 

380 X=X1 

389 REM -SI SE DESEA VER LA CONVERGENCIA HACIA LA RAIZ INCLUIR LINEA 390 Y 430- 
390 PRINT J,X 

400 J=J+1 

410 GOTO 340 

420 X2=Y 

430 PRINT J,X 

440 J=J+1 

950 K=X2-2%XX1+X0 


460 C=(X1-X2)X(X1-X2)/K 

920 C=(X1-X2)X (X1-X2)/K 

480 xX2=X2-C 

490 IF J>=1I THEN GOTO 550 

500 IF ABS(C)<¿D THEN GOTO S50 
510 XO=X1 

520 X1=X2 

530 x=X1 


540 GOTO 340 
550 RETURN 
360 END 


ejercicios resueltos: 


L, Calcular una raiz de la ecuación: y = + x 
SOLUCION: 
Haremos tres ejecuciones del mismo programa variando unicamente el factor 
de convergencia F, para F = 0,1; PF = 1; F = 2. En cambio,el valor ini- 
Cial, el error máximo deseado y el número máximo de iteracciones permane- 
cen constantes en las tres ejecuciones. 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300 
DEL SIGUIENTE MODO : 300 Y =........ 

A CONTINUACION PULSAR <CONT> 

300 Y=EXP (X)+X 


INTRODUZCA UN VALOR INICIAL?-1 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
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FACTOR DE CONVERGENCIA? .1 


o -1.0632121 

1 -1.0632121 

2 -.53400396 

3 -.52872696 

4 -.56944213 
UMA RAIZ ES X =-.56944213 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-.003601106 


EL NUMERO DE ITERACCIONES REALIZADO ES = S 


INTRODUZCA UN VALOR INICIAL?-1 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
FACTOR DE CONVERGENCIA? 1 
-1.6321206 

-1.6321206 

-.503319433 

-.39213667 

-. 57505349 

- 58833073 

.5ó6615025 

-.56447626 

.56726773 

56747738 

.56712769 


-:007J005b4d4Nr-o 


[e] 


UNA RAIZ ES »X =-.56712769 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES = .000024442058 
EL NUMERO DE ITERACCIONES REALIZADO ES = 11 


INTRODUZCA UN VALOR INICIAL?-1 
ERROR MAXIMO DESEADO? .00001 
NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
FACTOR DE CONVERGENCIA? 2 
-2.2642411 

-2.2642411 

-.47706669 

-. 13506262 

- 5801036 

-. 62469022 

- 5652613 

- 55871011 

-.56741568 

- 56836221 

10 -.56710385 

11 -.56696676 

12 -.567149 


30y PUN r-o 


UNA RAIZ ES X =-.567149 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-8.9494179E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 13 


Ze Calcular una raiz de la ecuación: y = X- 2 sen X 
SOLUCION: 
Para esta ejecución hemos omitido las lineas 390 y 430. 
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A DIA o —— 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300 
DEL SIGUIENTE MODO : 300 Y S.occooo.o.. 

A CONTINUACION PULSAR <CONT> 

300 Y=X-2*SIN(X) 


INTRODUZCA UN VALOR INICIAL? 1 

ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 100 
FACTOR DE CONVERGENCIA? 2 


UNA RAIZ ES X= ¿0000134228417 CON UN ERROR MENOR QUE .00001 
EL VALOR CORRESPONDIENTE PARA Y ES =-.000013428417 
EL NUMERO DE ITERACCIONES REALIZADO ES = 11 


3. Calcular una raiz de la ecuación: y = x(x + 3) (x - 2) (x - 5) 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA ESTUDIAR EN LA LINEA 300 
DEL SIGUIENTE MODO : 300 Y =...o.o.o.. 

A CONTINUACION PULSAR <CONT> 

300 Y=XX(X+3)X (X-2)% (X-5) 


INTRODUZCA UN VALOR INICIAL? 3 

ERROR MAXIMO DESEADO? .00001 

NUMERO MAXIMO DE ITERACCIONES A REALIZAR? 1000 
FACTOR DE CONVERGENCIA? 2 


UNA RAIZ ES X =-3 CON UN ERROR MENOR QUE .0O0001 
EL VALOR CORRESPONDIENTE PARA Y ES = 5.4202975E-06 
EL NUMERO DE ITERACCIONES REALIZADO ES = 465 


TABULACION DE UNA FUNCION REAL DE 
VARIABLE REAL 


introducción: 


Este breve programa sirve para realizar una tabulación de cualquier 
función de la forma: Y = F(X). Para ello es preciso introducir la función 
en la linea 250 mediante su definición, del siguiente modo: 

250 DEF FN F(X) = ....... 

Además se ha de introducir en la linea 160 los límites del interva- 
lo en el que se desea la tabulación y a continuación el valor del incremen 
to deseado en la linea 190. me 

A veces puede interesar redondear los valores de x y de y para 
no trabajar con tantos decimales. 


listado del programa: 


E EEES 
20 REM 


30 REM TABULACION DE UNA FUNCION 
40 REM 

50 REM REAL DE VARIABLE REAL 

60 REM 


70 REM IRC AA ERA 
100 PRINT 

110 PRINT "DEFINA LA FUNCION QUE DESEA TABULAR EN LA LINEA 250” 
120 PRINT "DEL SIGUIENTE MODO : 250 DEF FN F(X)= .. ooo no. ” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 PRINT:STOP 

150 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TAEULAR”"; 
160 INPUT A,B 

170 PRINT 

180 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

190 INPUT H 

200 PRINT 

210 PRINT 

220 PRINT "VALORES DE X”, "VALORES DE Y=F(X)" 

230 PRINT  "MRRRRREOOROOOOORRRRRRRORODRRORORDODODOCOOAARRARAK * 

240 FOR X=A TO E STEP H 

250 DEF FN F(X)= 

260 PRINT X,FN F(X) 

270 NEXT X 

2280 END 
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ejercicios resueltos: 


sen X 


lurtadiar la función: y = > 


mento de 0.25. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA TABULAR EN LA LINEA 250 
DEL SIGUIENTE MODO : 250 DEF FN F(X)= coo.ooo.o. 
A CONTINUACION PULSAR <CONT> 


en el intervalo [1, 4] con un incre 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 4 


INTRODUZCA EL VALOR DEL INCREMENTO? .25 


VALORES DE X VALORES DE Y=F (X) 
JOR 

1 .84147098 

1.25 .73918770 

1.5 .66499666 

1.75 . 56227768 

2 . 45464871 

2.25 . 34581031 

2.5 . 23938886 

2.75 «13878522 

3 . 04704000 

3.25 -.03329081 

3.5 -.10022378 

3.75 -.15241635 

4 -.187920062 


Le Estudiar la función: y = x* en el intervalo (O, 3] con un incre 
mento de 0.2. 
SOLUCION: 
DEFINA LA FUNCION QUE DESEA TABULAR EN LA LINEA 250 


DEL SIGUIENTE MODO : 250 DEF FN F(X)= 2...oooo. 
A CONTINUACION PULSAR <CONT> 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 3 


INTRODUZCA EL VALOR DEL INCREMENTO? .2 


VALORES DE X VALORES DE Y=F (X) 
ES 
0.0 1.0000 
.2 .7248 
.4 .6931 
.6 .7360 


8 .8365 
1.0 1.0000 
1.2 1.2446 
1.4 1.6017 
1.6 2.1213 
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1.8 2.8807 
2.0 4.0000 
2.2 5.6667 
2.4 2.1754 
206 11.9931 
2.8 17.8666 
3.0 27.0000 
3. Estudiar la función: y = Ene 1D en el intervalo 
sen” x 


un incremento de O.1l. 
SOLUCION : 


DEFINA LA FUNCION QUE DESEA TAEULAR EN LA LINEA 250 
DEL SIGUIENTE MODO : 250 DEF FN F(X)= coo...» 
A CONTINUACION PULSAR <¿CONT> 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 


INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y=F (X) 
EEES 
1.16334 
1.04317 
.2738 
23103 
.?21482 
.922321 
.?256723 
1.01851 
1.114282 
1.25645 
1.46126 
1.75901 
2.20091 
2.87922 
3.97097 
5.84436 
9.35055 
16.76008 
35.51348 
99.37988 
493.27567 
19626.77069 


232030 0b0dNe- 


30300 4dNr 


Hd A NNNNNNNNNNer+eonh hhh 


- 


3.4159 


11, 7] 


con 


OPERACIONES CON FUNCIONES REALES DE 


VARIABLE REAL 


introducción: 


Este programa sirve para calcular la suma, diferencia, producto y 


cociente de dos funciones dadas en forma explícita. Para ello hemos de in- 


troducir las funciones, mediante su definición del siguiente modo: 


270 DEF FN F(X) = ...... 
280 DEF FN G(X) = ...... 


En el caso de que la función G(X) se anule en el intervalo [A, B] 


el cociente no será posible produciendose un error aritmético. 


listado del programa: 


10 REM IRIS IOIIIIIIOIOIIIIIIOIIIAIIAIIOIIIOIIOIOIOIROAIOOOOOOIOOIAAAAA 
20 REM 

30 REM OPERACIONES CON FUNCIONES 

40 REM 

50 REM REALES DE VARIABLE REAL 

60 REM 

70 REM IRSA AAA 
100 PRINT 

110 PRINT "DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280” 

120 PRINT "DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES” 

130 PRINT 

140 PRINT "270 DEF FNF(X)= .....” 

150 PRINT "280 DEF FNG(X)= .....” 

160 PRINT 

170 STOP 

1830 PRINT 

190 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR”; 

209 INPUT A,B 

210 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO" 5 

220 INPUT H 

230 PRINT 

240 PRINT "VALORES DE X","FUNC.SUMA", "FUNC. DIFERENC","FUNC.PRODUC","FUNC. COCIENT 
" 

250 PRINTS 
OCA 


260 FOR X=A TO B STEP H 


84 FUNCIONES REALES DE VARIABLE REAL 


270 DEF FNF(X)= 

280 DEF FNG(X)= 

290 FS=FNF (X)+FNG(X) 
300 FD=FNF (X)-FNG (X) 
310 FP=FNF (X)%XFNG (X) 
320 FC=FNF (X) /FNG (2%) 
330 PRINT X,FS,FD,FP,FC 
340 NEXT X 

350 END 


ejercicios resueltos: 


x? + 3x - 7 
METERSE 
Hallar las funciones: F(x) + G(x); F(x) - G(x); F(x).G(x); F(x)/G(x) 

en el intervalo [1, 3] con un incremento de 0,25. 


SOLUCION: 


1. Dadas las funciones: F(x) = 3 x+ 5 y G(x) = 


DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280 
DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES 


270 DEF FNFiX)=7% +5 
280 DEF FNG(X<)= (XXX + 3% (2% 


INTRODLUIZCA LOS EXTREMOS DEL INTERVALO A TALULAR? 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .23 


[5] 


VAL.DE X FUNC. SUMA FUNC. DIFERENC FUNC.PRODUC FUNC. COCIENT 
HONORIO AAA AA MA ER RARA 
pe 5.0000 11.0000 -=  24,0000 - 2.6667 
1.25 7.6250 9.3750 9.8437 Po7r7ZS 
1.5 9.3750 9.625 Ñ 1.1875 -?0u. 0000 
1.75 10.7750 9.7250 5.2813 17.5238 
2 12,0000 10,0000 11.0000 11.0000 
2.25 13.1250 10.3750 16.1563 0.5955 
2.5 14.1875 10.8125 21.0937 7.1074 
2.75 15.2083 11,297 25.9479 6.7660 
3 16.2000 11.8000 30.8000 6.3óJó 
2 


x 


Dadas las f i : h A 
2. unciones F(x) TSE 


y G(x)= Ln(x+3) 
Hallar las funciones siguientes: 

F(x) + G(x); F(x) - G(x); F (x) .G(x); F (x)/G(x). 
en el intervalo [1, 3] con un incremento de 0.1. 

SOLUCION: 


DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280 
DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES 


270 DEF FNF (X)=X*X/ (2+SIN(X)) 
2230 DEF FNG(X)=LOG (X+3) 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 
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———— o a — —  ——  — —_ «zm. E KK 


VALORES DE X FUNC . SUMA FUNC. DIFERENC FUNC . PRODUC FUNC.COCIENT 
MORIR 

1.00000 1.73822 - 1.03436 . 487882 . 25386 
1.10000 1.22950 -  .992482 .59051 .29661 
1.20000 1.92621 -  .94396 .70481 .34223 
1.30000 2.02888 - 88835 .83179 .39096 
1.40000 2.13812 -  .82509 .97270 .44311 
1.50000 2.25470 -  .75345 1.12900 . 49906 
1.60000 2.37951 -  .67260 1.30242 .55926 
1.70000 2.51358 - ¿58155 1.49497 .62422 
1.£0000 2.65811 - 47912 1.70900 .69456 
1.90000 2.81:450 - 36397 1.94724 .77098 
2.00000 2.98434 -  .23454 2.21282 . 85427 
2. 10000 3.16947 - 08901 2.50940 .94537 
2.20000 3.37200 .07468 2.84120 1.04530 
2.30000 3.59435 .25894 3.21308 1.15527 
2.40000 3.83930 . 46650 3.6065 1.27662 
2.50000 4.11001 .?70051 4.10036 1.41092 
2.60000 4.41010 .96457 4.62965 1.55990 
2.7?70000 4.7437 1.26277 5.22703 1.72554 
2.80000 5.115482 1.59976 5. 90222 1.21006 
2.90000 5.53068 1.298077 6.6662 2.1159 
7.,00000 5.99517 2.41165 7.53150 2.34597 
3 A 3 2x+1 4 
e Vadas las funciones: F(x) = PIE y G(x) = cos (x”) 


Hallar las funciones siguientes: 
F(x) + G(x); F(x) - G(x); F(x).G(x); F (x) /G(x) 
en el intervalo [1, 3] con un incremento de 0.1. 
SOLUCION: 


DEFINA LAS FUNCIONES QUE DESEA OPERAR EN LAS LINEAS 270,280 
DEL SIGUIENTE MODO Y PULSAR <CONT> DESPUES 


270 DEF FNF(X)=((2*X+1)/(X*X+1))* (1/3) 
280 DEF FNG(X)=COS (XHXXXXX) 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 3 

INTRODUZCA EL VALOR DEL INCREMENTO? .1 

VALORES DE X FUNC . SUMA FUNC. DIFERENC FUNC. PRODUC FUNC. COCIENT 

HONRA 
1.00000 1.68502 .60441 «61849 2.11866 
1.10000 1.23782 1.02483 . 12048 10.62333 
1.20000 .63506 1.592382 -= ¿53824 - 2.31736 
1.30000 .14248 2.06153 - 1.05740 - 1.14849 
1.40000 . 32200 1.25167 -=  ¿eJi2s - 1.42100 
1.50000 1.4146? . 72866 .36758 3.12437 
1.60000 2.02031 .09299 1.018326 1.09650 

. 70000 ¿56415 1.51969 -=  .942780 - 2.18078 

1.30000 . 534939 1.50518 -= "42030 - 2.15125 
1.>70000 1.90705 . 12006 . 70560 1.13437 
2.00000 . 04234 1.95766 -= 193766 - 1.04921 
2.10000 1.81305 .16073 «31533 1.19456 
2.20000 «27328730 1.11015 = ¿13242 - ?.16750 
2.30000 Ñ .00723 1.92019 = «22172 - 1.00400 
2. 40000 +. 76031 1.13995 =  .¿185028 - 5.00837 
2.50000 1.14479 .23294 .19334 4.55929 
2.60000 .738391 1.07192 =  .13362 - 6.44369 
2.70000 -=  .04826 1.88299 -= "88593 =  .25003 
2.380000 1.11031 . 70407 . 18427 4.46626 
2.90000 «¿85512 . 23963 =  .03792 -21.23815 


3,00000 1.66459 «11122 . 68962 1.14320 


COMPOSICION DE FUNCIONES REALES DE 
VARIABLE REAL 


introducción: 


Este sencillo programa sirve para realizar la composición de dos 
funciones. Para ello es preciso introducir las dos funciones mediante su 
definición del siguiente modo: 

260 DEF FN F(X) ¿e 
270 DEF FN G(X) = ...... 


Como siempre que se pretende tabular una función hemos de dar el intervalo 


en el que se pretende estudiar y el incremento de la variable X. 


listado del programa: 


10 REM FIORE: 
20 REM 


30 REM COMPOSICION DE FUNCIONES 
40 REM 

50 REM REALES DE VARIABLE REAL 
60 REM 


70 REM SRC OOOO III III AAA 
100 PRINT 

110 PRINT "DEFINA LAS FUNCIONES QUE DESEA COMPONER EN LAS LINEAS 260,270" 
120 PRINT "DEL SIGUIENTE MODO Y PULSAR <CONT> AL FINALIZAR.” 

130 PRINT 

140 PRINT:PRINT "260 DEF FN F(X)=....." 

150 PRINT:PRINT "2720 DEF FN G(X)=....."” 

160 PRINT:STOP 

170 PRINT 

180 PRINT "EXTREMOS DEL INTERVALO EN QUE SE DESEA ESTUDIAR LA F.COMPUESTA"; 
190 INPUT A,B 

200 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

210 INPUT C 

220 PRINT 

230 PRINT "X","F(X)","G(X)","H(X)=G(F(X))" 

240 PRINT "MRRRRRRRORRRRRRORRRDRRRRRRRROORRRRRRRRORORORDORARDORORDAODIORIORDIOAAAAA AAA 
250 FOR X=A TO B STEP C 

260 DEF FN F(X)= 

270 DEF FN G(X)= 

280 HX=FNG(FN F(X)) 

290 PRINT X,FN F(X),FN G(X),HX 

300 NEXT X*X 

310 END 


J.R.VIZMANOS 87 


ejercicios resueltos: 


1. Dadas las funciones: F(x) = senix, y G(x) = Ln (x + 2), estu- 
diar la función compuesta H(x) = G(F(x)) en el intervalo [1, 3] con un 
incremento de O0.O5. 

SOLUCION: 


DEFINA LAS FUNCIONES QUE DESEA COMPONER EN LAS LINEAS 260,270 
DEL SIGUIENTE MODO Y PULSAR <CONT> AL FINALIZAR. 


260 DEF FN F(X)= (SIN(X))3 
270 DEF FN G(X)=L0G(X+2) 


EXTREMOS DEL INTERVALO EN QUE SE DESEA ESTUDIAR LA F.COMPUESTA? 1 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .OS 


Xx F(X) G(Xx) H(X)=G(F (X)) 
ORIO OOO 
1 59582324 1.0986123 .25390371 
1.05 . 65266923 1.1151416 . 9275356639 
deL .70784194 1.1314021 .P9615199 
1.15 .76045833 1.1474025 1.0153967 
1.2 - 80965943 1.1631508 1.0330633 
1.25 . 85462879 1.178655 1.0489418 
1.3 .89461018 1.1939225 1.0623504 
1.35 .92892383 1.2089603 1.0746351 
1.4 .95698124 1.2237754 1.0841689 
1.45 .97829789 1.2383742 1.091352 
1.5 .99250377 1.252763 1,.0961104 
1.55 .99935143 1.2669476 1.0983961 
1.6 .99872135 1.2809338 1.098186 
.1.65 .99062454 1.2947272 1.0954822 
1.2 . 975320228 1.30833283 1.090312 
1.75 .95272308 1.3217558 1.0827278 
1.9 .92357684 1.3350011 1.0728078 
1.85 . 28826637 1.3480731 1.0606564 
1.9 . 84739645 1.3609766 1.0464051 
1.95 .280166079 1.3737156 1.0302124 
2 275182694 1.3862944 1.012265 
2.05 .69871975 1.3987169 . 99277749 
2.1 .64320355 1.410987 27199165 
2.15 .58616357 1.4231083 .95017553 
2.2 .528428696 1.4350845 .922762108 
2.25 . 471043838 1.446919 . 90464068 
2.3 . 41466897 1.458615 .2815622 
2.35 . 36014378 1.4701758 . 825872254 
2.4 . 30818042 1.4816045 . 83645952 
2.45 . 25940685 1.4929041 -81510232 
2.5 .214359411 1.5040774 .79496076 
2.55 . 17344584 1.5151272 .27631385 
2.6 . 13699019 1.5260563 .25939839 
2.65 . 10517446 1.5368672 . 74439834 
2? .078062437 1.5475625 .73143595 
2.75 .055594691 1.5581446 .72056519 
2.8 .037591385 1.5686159 .71176842 
2.85 . 02375822 1.5789787 . 70495629 
2.9 .013694689 1.5892352 . 69997119 
2.95 . 0069048744 1.5993876 . 69659367 
3 


.00231038 1.6094379 .69455139 
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2. Dadas las funciones: F(x) = x + 2, y G(x) = 5 x, estudiar la 
función compuesta H(x) = G(F(x)) en el intervalo [1, 3] con un incremen- 
to de 0.2. 


SOLUCION: 


DEFINA LAS FUNCIONES QUE DESEA COMPONER EN LAS LINEAS 260,270 
DEL SIGUIENTE MODO Y PULSAR <CONT> AL FINALIZAR. 


260 DEF FN F(X)= Xx+2 
270 DEF FN G(X)= EXx 


EXTREMOS DEL INTERVALO EN QUE SE DESEA ESTUDIAR LA F.COMPUESTA? 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .2 


[8] 


Xx F(X) G(x) H(X)=G(F (X)) 
NINO A 
1 3 5 15 

1.2 3.2 é 1ó 

1.4 3.4 ? 17 

1.6 3.6 e 183 

1.83 3.8 9 qe 

2 4 10 20 

2.2 4.2 11 21 

2.4 4.4 12 22 

2.6 4.6 13 23 

2.8 4.8 14 24 

3 5 15 25 


FUNCION EXPONENCIAL 


introducción: 


Este programa sirve para estudiar la función exponencial de la forma 
y = a* . Para ello el programa solicita la introducción de la base a (a>0) 
posteriormente se fijan los límites del intervalo y el incremento de la va 
riable x. 

El programa imprime el estudio de la función y = aX y de la fun- 
ción y = e, con el fin de poder ver las propiedades de las funciones 


exponenciales según que la base sea mayor o menor que la unidad. 


listado del programa: 


10 REM AAA 
20 REM 


30 REM ESTUDIO DE LA 

40 REM 

50 REM FUNCIO N EXPONENCIAL 

60 REM 

70 REM NICO III 
100 PRINT 


110 PRINT "INTRODUZCA LA BASE DESEADA"; 

120 INPUT A 

130 PRINT 

140 PRINT "EXTREMOS DEL INTERVALO EN QUE DESEA ESTULIAR LA FUNCION”; 
150 INPUT M,N 

160 PRINT 

170 PRINT "VALOR DEL INCREMENTO"; 

180 INPUT C 

190 PRINT 

200 PRINT 

210 PRINT "X","A“X","(1/A)*X" 

220 PRINT "IRRADIA " 
230 FOR X=M TO N STEP C 

240 F=A*X 

250 G=(1/A)*X 

260 PRINT X,F,G 

270 NEXT X 

280 END 
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A A AAA A A 


x 

L, Estudiar la función: y = 2 e y=( ) en el intervalo[ O, 3] 
con un incremento de 0.25. 

SOLUCION : 


INTRODUZCA LA BASE DESEADA? 2 
EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION? O 
VALOR DEL INCREMENTO? .25 


(0) 


Xx ACX (1/A)9X 

FOIOS: 
0.00 1.00000000 1.000000000 
28 1.18920711 .840896415 
. 50 1.41421356 .707106781 
.?5 1.68179283 . 594603557 
1.00 2.00000000 . 500000000 
1.25 2.37841423 . 420448208 
1.50 2.82842713 .353553391 
1.75 3.36358566 . 297301779 
2.00 4,00000000 . 250000000 
2,25 4.75682846 ¿210224104 
2.50 5.65685425 176776695 
2075 6.72717133 . 148650889 
7.00 8.00000000 . 125000000 

2 Xx 1,5 
e Estudiar las funciones: y = 1.5 Y y =(1>7) en el intervalo 


[-6, 6] con un incremento de O.5. 
SOLUCION: 
INTRODUZCA LA BASE DESEADA? 1.5 


EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION?-6 ó 
VALOF: DEL INCREMENTO? .5 


Xx OS (1/0)*X 
HONORIO 
-6.00 .08779150 11.37062500 
-5.50 ¿10752218 9.30040637 
-5.00 «13168724 7.593735000 
-4.50 ¿161223285 6.20027091 
-4.00 . 19753086 5.06250000 
-3.50 .241924991 4.133513949 
-3.00 . 22629630 3.37500000 
-2.50 3628273 2.75567576 
-2.00 . 444494449 Z2.25000000 
-1.50 .54433105 1.863711731 
-1.00 66666667 1.50000000 
- .50 .81647653 1.224744387 
0,00 1.00000000 1.00000000 
.50 1.22474482 .21649658 
1.00 1.50000000 ” -66666667 
1.50 1.83711731 .54433105 
2,00 2.25000000 . 4494949494 
2.50 2.75567596 .36288737 
3.00 3.37500000 . 29629630 
3.50 4.13351394 .24192491 
4.00 5.06250000 . 1975353086 
4.50 6.20027091 «16128328 
5.00 7.59375000 «13168724 
5.50 9.30040637 . 10752218 


6.00 11.392062500 .08779150 


CAMBIO DE BASE LOGARITMICA 


introducción: 


Los microordenadores tienen como función de librería la función lo- 
garitmo neperiano, que se escribe LOG(x). Este programa sirve para calcu- 
lar logaritmos en cualquier base a, (a > 0), sin más que tener en cuenta 


la siguiente expresión: 
1n_x 
ln a 


109, x= 


listado del programa: 


10 REM HR III OOOO 
20 REM 

30 REM CAMBIO DE 

40 REM 

50 REM BASE LOGARITMICA 

60 REM 

70 REM RIIIE: 
100 PRINT . 
110 PRINT "INTRODUZCA LA BASE EN LA QUE DESEA TRABAJAR"; 

120 INPUT A 

130 PRINT 

140 PRINT "VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO”; 

150 INPUT % 

160 PRINT 

170 LX  =LOG(X)/LOG(A) 

180 PRINT "EL LOGARITMO EN BASE"3A3"DE";3X3"ES = "3LX 

190 PRINT 

200 PRINT 

210 GOTO 140 

220 END 


ejercicios resueltos: 


1. Calcular: 109,2 Te 109,» 256, 1091) 3209 
SOLUCION: 
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INTRODUZCA LA BASE DESEADA EN LA QUE DESEA TRABAJAR? 12 
VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO? 7? 


EL LOGARITMO EN BASE 12 DE 7 ES =  .783091825 


VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO? 256 


EL LOGARITMO EN BASE 12 DE 256 ES = 2.2315436 


VALOR DE X PARA EL QUE DESEA CALCULAR SU LOGARITMO? 3209 


El. LOGARITMO EN BASE 12 DE 2209 ES = 3.2491018 


FUNCION LOGARITMICA 


introducción: 


Este breve programa sirve para estudiar la función logarítmica de 


base a, (a > 0). También hemos.de dar el intervalo en el que se desea es- 


tudiar y el incremento de la variable x. 


El programa imprime el estudio de la función: y = log, x y el 


de la función: y = 109 (1 /a) x , con el fin de poder ver las propiedades 
de las funciones logarítmicas según que la base sea mayor o menor que la 
unidad. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM III 
REM 


REM ESTUDIO DE LA 
REM 
REM FUNCIO N LOGARITMICA 
REM 
REM IRA 
PRINT 
PRINT "INTRODUZCA LA BASE DESEADA"; 
INPUT A 
PRINT 
PRINT "EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION"; 
INPUT M,N 
PRINT 
PRINT "VALOR DEL INCREMENTO"; 
INPUT C 
PRINT 
PRINT 
PRINT "X","LOGA(X)","LOG(1/A) (X)" 
PRINT  "MRRRRROARDORARARDORDORARORORARARRORDOADARARRARDORODEOD " 
FOR X=M TO N STEP C 
F=LOG (X) /LOG(A) 
G=LOG(X)/LOG(1/A) 
PRINT X,F,G 
NEXT X 
END 
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ejercicios resueltos: 


a las funciones: y = 109, ¿X , e y = 1097 (XxX en el 
intervalo [1, 15] con un incremento igual a 1. 
SOLUCION: 


INTRODUZCA LA BASE DESEADA? 10 
EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION? 1 15 
VALOR DEL INCREMENTO? 1 


Xx LOGA (X) LOG(1/A) (Xx) 
HACIA 

1.00 0.00000000 0. 00000000 

2.00 .30103000 -  .30103000 

3.00 . 47712125 -  .47712125 

4.00 . 60205999 - ¿60205999 

5.00 .69897000 -  .69897000 

6.00 .77815125 - ».?77815125 

7.00 . 34509804 - 84509804 

8.00 . 90308999 -  .90308999 

9.00 .95424251 -  .95424251 

10.00 1.00000000 - 1.00000000 

11.00 1.04139269 - 1.04139269 

12.00 1.07918125 - 1.07918125 

13.00 1.11394335 - 1.11394335 

14.00 1.14612804 - 1.14612804 

15.00 1.17609126 - 1.17609126 

2. Estudiar las funciones: y = log,X, e y = 109.5 x en el 


intervalo [0.5; 3.9] con un increment igual a 0.2. 
SOLUCION: 


INTRODUZCA LA BASE DESEADA? 2 
EXTREMOS DEL INTERVALO EN QUE DESEA ESTUDIAR LA FUNCION? .5 4 
VALOR DEL INCREMENTO? .2 


Xx LOGA (X) LOG(1/A) (Xx) 
ES 

.50 - 1.00000000 1.00000000 
.?0 - ¿51457317 .51457317 
.920 - "¿15200309 . 15200309 
1.10 «13750352 = «¿13750352 
1.30 .37851162 = ¿37851162 
1.50 .58496250 = "58496250 
1.70 .726553475 =  .?6553475 
1.90 .92599942 -= .92599942 
2.10 1.07038933 - 1.07038933 
2.30 1.20163386 - 1.20163336 
2.50 1.321923209 - 1.32192809 
2.70 1.432935941 - 1.43295941 
2.90 1.53605290 - 1.53605290 
3.10 1.63226822 - 1.63226822 
3.30 1.72246602 - 1.72246602 
3.50 1.80735492 - 1.80735492 
3.70 1.288752527 - 1.88752527 


3.90 1.96347412 - 1.96347412 


FUNCIONES TRIGONOMETRICAS DIRECTAS 


introducción: 


Este programa permite estudiar las funciones trigonométricas direc 
tas: y =senX, y == COS xXx, ya= tagoX. 

Una vez seleccionada la función que desea estudiar, se ha de intro- 
ducir los límites del intervalo asi como el incremento de la variable x. 

Los ángulos están dados en radianes, en el supuesto de que se desea 
se trabajar con ángulos expresados en grados, minutos y segundos, bastaría 


con convertirlos previamente a radianes. 


listado del programa: 


10 REM FORA III III III RIIIE IIA: 
20 REM 


30 REM ESTUDIO DE LAS FUNCIONES 
490 REM 

50 REM TRIGONOMETRICAS DIRECTAS 
60 REM 


70 REM FORO III III III III III III: 
100 PRINT 

110 AB MIO IO OIR IIA 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :;" 
130 PRINT 

140 PRINT 

150 PRINT "1.- FUNCION Y = SEN (X)" 

160 PRINT "2.- FUNCION Y COS (X)” 

170 PRINT "3.- FUNCION TAG (Xx)" 

180 PRINT:PRINT 

1920 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" ; 
200 INPUT P 

210 IF P=1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 479 

249 REM - ESTUDIO DE LA FUNCION Y = SEN (X) - 

250 PRINT "VALORES DE X", "VALORES DE Y=SEN(X)" 

260 PRINT Rs 

270 FOR X=A TO B STEP H 

280 Y = SIN(X) 

290 PRINT X,Y 


'" 


< 
! 
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300 NEXT Xx 

310 GOTO 180 

320 GOSUB 479 

329 REM - ESTUDIO DE LA FUNCION Y = COS (X) - 
330 PRINT "VALORES DE X", "VALORES DE Y=C0S(X)" 
340 PRINT R$ 

350 FOR X=A TO B STEP H 

360 Y = COS(X) 

370 PRINT X,Y 

380 NEXT X 

390 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = TAG (X) - 
410 PRINT "VALORES DE X", "VALORES DE Y=TAG(X)" 
420 PRINT R$ 

430 FOR X=A TO B STEP H 

440 Y=SIN(X)/COS(X) 

450 PRINT X,Y 

460 NEXT X 

470 GOTO 180 

479 REM - SUBRUTINA DE ENTRADA DE DATOS - 

420 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" 5 
490 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 
510 INPUT H 

520 PRINT 

530 PRINT 

540 RETURN 

550 END 


ejercicios resueltos: 


1. Estudiar la función: y = tag X en el entorno del punto 1/2. 
SOLUCION: 
Obsérvese la discontinuidad de la función y = tag x en el punto x= 1/2. 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.569 1.573 


INTRODUZCA EL VALOR DEL INCREMENTO? .O0O1 


VALORES DE X AIALORES DE Y=TAG(X) 
FOCO: 


1.5690 556.69 
1.5691 589.51 
1.5692 626.44 
1.5693 668.30 
1.5694 716.16 
1.5695 7271.41 
1.5696 835.89 
1.5697 912.14 
1.5698 1003.69 
1.5699 1115.66 
1.5700 1255.77 
1.5701 1436.11 
1.5702 1676.93 
1.5703 2014.80 
1.5704 2523.18 


1.5705 3374.66 
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1.5706 5093.57 
1.5707 10381.43 
1.5708 -= 2272174,11 
1.5709 - 9645.58 
1.5710 = 4909.80 
1.5711 = 3293.00 
1.5712 E 2477.24 
1.5713 = 1985.41 
1.5714 = 1656.52 
1.5715 a 1421.11 
1.5716 = : 1244.28 
1.5717 = 1106.59 
1.5718 > 996.34 
1.5719 5 906.06 
1.5720 = 830.79 
1.5721 3 767.06 
1.5722 2 712.42 
1.5723 > 665.04 
1.5724 - 623.57 
1.5725 sn 586.97 
1.5726 = 554. 42 
1.5727 > 525.30 
1.5728 a 499.08 
1.5729 = 475.36 


2. Estudiar la función: y = sen x en el primer cuadrante, con un in- 
cremento de 0-05. 
SOLUCION: 
SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 1.5707963 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS5 


VALORES DE X VALORES DE Y=SEN(X) 
HERRIA: 

(o) 0.000000000 

.05 .049979169 

Al .099833417 

215 . 149438132 

.2 . 198669331 

.25 .247403959 

3 .295520207 a :E 
.35 .342897807 03 HQHE + LDApiAS: 
.4 .389418342 Hó1::44 o 
.45 . 434965534 pe 

.5 479425539 h A BESA 
.55 .522687229 mp DE 

.6 564642473 a 

.65 .605186406 

.? .644217687 

¿75 .681638760 

.8 .717356091 

.85 .751280405 

.9 .783326910 

.95 .813415505 

1 .841470985 

1.05 .867423226 

1.1 .891207360 


1.15 .912763940 


98 FUNCIONES REALES DE VARIABLE REAL 


A AA A A _—__ __==- A A Á < K/<X<> 


1.2 . 932039086 
1.25 .948984619 
1.3 .?263558185 
1.35 .975723358 
1.4 .9285449730 
1.45 «992712991 
1.5 .997494987 
1.55 999783764 


3. Estudiar la función: y = COS X en el segundo cuadrante, con un 
incremento de O.O5. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.57077%63 3.1415927 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS 


VALORES DE X VALORES DE Y=C0S(X 
A 
1.5707963 . 000000027 
1.6207963 - .049979143 
1.6707963 - 099833390 
1.7207963 - .149438106 
1.7707963 - 198669305 
1.8207963 - .247403934 
1.8707963 - .295520181 
1.9207963 - .342897782 
1.9707963 - 389418318 
2.0207963 - .434965510 
2.0707963 - .479425515 
2.1207963 - 522607206 
2.1707963 - 564642452 
2.2207963 - .605186385 po 
2.2707963 - 644217667 
2.3207963 - .6281638741 
2.3707967 - .717356073 
2.4207963 - .751280388 
2.4707963 - 783326893 
2.5207963 - .813415490 
2.5707963 - .841470971 
2.6207963 - 867423213 
2.6707963 - .891207348 
2.7207963 - .912763930 
2.7707963 - .932039077 
2.8207963 - 948984611 
2.8707963 - 963558179 
2.9207963 - 975723352 
2.9707963 - .985449725 
3.0207963 - .992712988 
3.0707963 - .997494985 
3. 1207963 - .999783764 


FUNCIONES TRIGONOMETRICAS INVERSAS 


introducción: 


ver 


duc 


Este programa sirve para estudiar las funciones trigonométricas in- 
sas: y = cosec X, Y = sec X, y = cotg X. 

Una vez seleccionada la función que desea estudiar, se ha de intro- 
ir los límites del intervalo, asi como el incremento de la variable x. 


Los ángulos han de darse en radianes. 


listado del programa: 


10 

20 

30 

40 

so 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
249 
250 
260 
270 
280 
290 
300 


REM IRRADIA IIA: 
REM 


REM ESTUDIO DE LAS FUNCIONES 
REM 
REM TRIGONOMETRICAS INVERSAS 
REM 
REM IRSA: 
PRINT 

RG MARIO 

PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :” 
PRINT 

PRINT 

PRINT "1.- FUNCION Y = COSEC (X)" 

PRINT "2.- FUNCION Y = SEC (X)" 

PRINT "3.- FUNCION Y = COTAG (X)" 

PRINT:PRINT 

PRINT "SEGUN LA OPCION DESEADA PULSE EL. NUMERO QUE LE PRECEDE” 5 
INPUT P 

IF P=1 THEN 240 

IF P=2 THEN 320 

IF P=3 THEN 400 

GOSUB 479 

REM - ESTUDIO DE LA FUNCION Y = COSEC (X) - 

PRINT "VALORES DE X", "VALORES DE Y=COSEC (X)" 

PRINT Rs 

FOR X=A TO B STEP H 

Y = 1/SIN(X) 

PRINT X,Y 

NEXT X 
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310 GOTO 180 

320 GOSUB 479 

329 REM - ESTUDIO DE LA FUNCION Y = SEC (X) - 
330 PRINT "VALORES DE X", "VALORES DE Y=SEC (X)" 
340 PRINT RS 

350 FOR X=A TO B STEP H 

360 Y=1/C0S(X) 

370 PRINT X,Y 

380 NEXT X 

390 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = COTAG (X) - 
410 PRINT "VALORES DE X", "VALORES DE Y=COTAG(X)" 
420 PRINT R$ 

430 FOR X=A TO B STEP H 

490 Y=COS(X)/SIN(X) 

450 PRINT X,Y 

460 NEXT X 

470 GOTO 180 

479 REM - SUBRUTINA DE ENTRADA DE DATOS - 

480 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" ; 
490 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO” 5 
510 INPUT H 

520 PRINT 

530 PRINT 

540 RETURN 

550 END 


ejercicios resueltos: 


1. Estudiar la función: y = cosec X en el intervalo [1; 
con un incremento de O.O5. 
SOLUCION: 
ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


1.- FUNCION Y = COSEC (X) 
2.- FUNCION Y = SEC (X) 
3.- FUNCION Y = COTAG (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 2 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS5S 


VALORES DE X VALDRES DE Y=COSEC (X) 
FICA: 

1 1.188395 

1.05 1.152840 

1.1 1.122073 

1.15 1.095574 

1.2 1.072916 

1.25 1.053758 

1.3 1.037820 

1.35 1.024881 

1.4 1.014765 

1.45 1.007340 


1.95] 
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1.5 1.002511 
1.55 1.000216 
1.6 1.000427 
1.65 1.003145 
1.2 1.008405 
1.75 1.016275 
1.8 1.026855 
1.825 1.040285 
1.9 1.056747 
1.95 1.076473 


E Estudiar la función: y = sec Xx en el intervalo (O, 1] con un 
incremento de 0.05. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .05 


VALORES DE X VALORES DE Y=SEC(X) 

IA: 
jo] 1.000000 
.05 1.001251 
.1 1.005021 
.15 1.011356 
.2 1.020339 
.25 1.032085 
.3 1.046752 
.35 1.064540 
.4 1.085704 
.45 1.110539 
.5 1.139494 
.55 1.172987 
.6 1.2116283 
.65 1.256149 
.? 1.307459 
.?75 1.366701 
.8 1.435324 
.25 1.515190 
.92 1.608726 
.95 1.719149 
1 1.850816 


3. Estudiar la función: y = cotg x en el intervalo [1.5; 1.64] 
con un incremento igual a 0.005. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.5 1.64 
INTRODUZCA EL VALOR DEL INCREMENTO? .005 
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VALORES DE X VALORES DE Y=COTAG(X) 
EAS 
1.5000 .070915 
1.5050 .065891 
1.5100 .060871 
1.5150 .055854 
1.5200 .050840 
1.5250 .0458285 
1.5300 .040819 
1.5350 .035812 
1.5400 .030806 
1.5450 .025802 
1.5500 .020799 
1.5550 .015798 
1.5600 .010797 
1.5650 .005796 
1.5700 . 0007796 
1.5750 = .004204 
1.5800 = .009204 
1.5850 E .014205 
1.5900 > .019206 
1.5950 => .024208 
1.6000 _= .029212 
1.6050 = .034217 
1.6100 Sl .039224 
1.6150 a .044232 
1.6200 .049243 
1.6250 [= .054257 
1.6300 A .059273 
1.6350 = .064292 


1.6400 = 069314 


RAZONES TRIGONOMETRICAS DE UN ANGULO DADO 


introducción: 


Este programa sirve para calcular las razones trigonométricas direc 
tas e inversas de un ángulo dado. El ángulo puede venir en radianes o en 


grados, minutos y segundos 


listado del programa: 


10 REM IRRRRRRAOORORROOROARCOROOIOIIOO OOOO OIR III IICA AA 
20 REM 

30 REM RAZONES TRIGONOMETRICAS 
40 REM 

50 REM DE UN ANGULO DADO 

60 REM 

70 REM RR IOIIIIIIIIIIIIIIIIIONIINIIIINAINIANIIAAAA: 
100 PRINT 

110 PRINT "SI EL ANGULO VIENE DADO EN RADIANES, PULSE 1 " 

120 PRINT "SI EL ANGULO VIENE DADO EN GRADOS,MINUTOS Y SEGUNDOS, PULSE 2" 
130 INPUT P 

140 PRINT 

150 PRINT 

160 IF P=1 THEN GOTO 280 

169 REM - PASO DE GRADOS, MINUTOS Y SEGUNDOS A RADIANES - 

170 PRINT "INTRODUZCA LIS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO DADO" 
180 PRINT "GRADOS .” p 

190 INPUT G 

200 PRINT "MINUTOS ="3 

210 INPUT Mm 

220 PRINT "SEGUNDOS ="; 

230 INPUT S 

240 A=G+M/60+5/3600 

250 B=INT(A/360) 

260 R=A*.01745329-BX2XPI 

270 GOTO 300 

280 PRINT "INTRODUZCA EL ANGULO EN RADIANES”"; 

290 INPUT R 

300 F1=SIN(R) 

310 F2=COS(R) 

320 F3=F1/F2 

330 F4=1/F1 

340 FS5=1/F2 
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350 Fé=1/F3 


360 PRINT 

370 PRINT 

379 REM - SALIDA DE RESULTADOS - 
380 PRINT "SEN(X) =";3F1 

390 PRINT "COS (Xx) "5F2 


400 PRINT "TAG(X) FS 
410 PRINT "COSEC(X)="3F4 
4920 PRINT "SEC (XxX) ="3FS 
430 PRINT "COTAG(X)=";F6 
440 END 


ejercicios resueltos: 


1. Calcular las razones trigonométricas de un ángulo igual a 2.54 radia 
nes. 
SOLUCION: 


SI EL ANGULO VIENE DADO EN RADIANES, PULSE 1 
SI EL ANGULO VIENE DADO EN GRADOS,MINUTOS Y SEGUNDOS, FULSE 2 


2 4 


INTRODUZCA EL ANGULO EN RADIANES? 2.54 


SEN(X) = .5ó593Ó23 
COS(xX) =-.82443529 
TAG (X) =-.68647744 
COSEC(X)= 1.7669211 
SEC (X) =-1,.2129515 


COTAG(X)=-1.4567121 


Ze Calcular las razones trigonométricas del ángulo: 35% 27' 45" 
SOLUCION: 


SI EL ANGULO VIENE DADO EN RADIANES, PULSE 1 
SI EL ANGULO VIENE DADO EN GRADOS,MINUTOS Y SEGUNDOS, PULSE 2 
Pe 


INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO DADO 
GRADOS =?2 35 
MINUTOS =? 27 
SEGUNDOS =”? 45 


SEN(X) = .58016992 
COS(xX) = ¿814495472 
TAG(X) = .71230589 
COSEC(X)= 1.723633 

SEC (X) = 1.2277539 


COTAG(X)= 1.4038912 


FUNCIONES TRIGONOMETRICAS RECIPROCAS 


introducción: 


Este programa sirve para calcular las funciones recíprocas de las 
trigonométricas. Permite estudiar las siguientes funciones: 


1. y = arc sen x 4. y = arc cosec x 
2. y =arc cos x 5. y = arc sec Xx 
3. y =arc tag x 6. y = arc cotg x 


Los arcos obtenidos vienen dados en radianes. 

Las funciones: y = arc sen x e y = arc cos x solo están definidas en 
1.] 

arc cosec x e y = arc sec x estan definidas en 


el intervalo [-1 


- 


Las funciones: y 
R- (-1, 1). 
Las funciones: y 


arc tg x e y = arc cotg x estan definidos para 
todo x real. 


listado del programa: 


10 REM IRRRRRRRRORRARARARARORORAROROARDORDOREORDARORARDAROREARARADIADORDRRRIAICIOCIOCIAIAIAIIIAAAAR 
20 REM 

30 REM ESTUDIO DE LAS FUNCIONES 

40 REM 

50 REM TRIGONOMETRICAS RECIPROCAS 

60 REM 

70 REM HI RIIMSIDA III III NI III: 
100 PRINT 

O E EE 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :" 


130 PRINT 
140 PRINT 
150 PRINT "1.- FUNCION = ARC SEN (X)" 
160 PRINT "2.- FUNCION = ARC COS (X)" 


ARC TAG (X)" 
= ARC COSEC (X)" 
= ARC SEC (X)" 
= ARC COTAG (X)" 


170 PRINT "3.- FUNCION 
180 PRINT "4.- FUNCION 
190 PRINT "S.- FUNCION 
200 PRINT "6.- FUNCION 
210 PRINT 
220 PRINT 


<<< 
" 
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230 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" 5 
240 INPUT P 

250 ON P GOTO 259,339,419,499,579,659 

259 REM - ESTUDIO DE LA FUNCION Y = ARC SEN (X) - 
260 GOSUB 739 

270 PRINT "VALORES DE X", "VALORES DE Y=ARC SEN (X)"” 
280 PRINT R$ 

290 FOR X=A TO B STEP H 

300 Y=ASN(X) 

310 PRINT X,,Y 

320 NEXT X 

330 GOTO 210 

339 REM - ESTUDIO DE LA FUNCION Y = ARC COS (X) - 
340 GOSUB 739 

350 PRINT "VALORES DE X", "VALORES DE Y=ARC COS (X)" 
360 PRINT R$ 

370 FOR X=A TO B STEP H 

380 Y=PI/2-ASN(X) 

390 PRINT X,.Y 

400 NEXT X 

410 GOTO 210 

419 REM - ESTUDIO DE LA FUNCION Y = ARC TAG (X) - 
420 GOSUB 739 

430 PRINT "VALORES DE X", "VALORES DE Y=ARC TAG (X)" 
440 PRINT R$ 

450 FOR X=A TO B STEP H 

460 Y=ATN(X) 

470 PRINT X,,Y 

480 NEXT X 

490 GOTO 210 

499 REM - ESTUDIO DE LA FUNCION Y = ARC COSEC (X) - 
500 GOSUB 739 

510 PRINT "VALORES DE X", "VALORES DE Y=ARC COSEC (X)" 
520 PRINT R$ 

530 FOR X=A TO B STEP H 

540 Y=ASN(1/X) 

550 PRINT X,,Y 

560 NEXT X 


570 GOTO 210 

579 REM - ESTUDIO DE LA FUNCION Y = ARC SEC (X) - 
580 GOSUB 739 

590 PRINT "VALORES DE X", "VALORES DE Y=ARC SEC (X)" 
600 PRINT R$ 

610 FOR X=A TO B STEP H 

620 Y=PI/2-ASN(1/X) 

630 PRINT X,,Y 

640" NEXT X 

650 GOTO 210 

659 REM - ESTUDIO DE LA FUNCION Y = ARC COTAG (X) - 
660 GOSUB 739 

670 PRINT "VALORES DE X", "VALORES DE Y=ARC COTAG (X)" 
680 PRINT Rs 

690 FOR X=A TO B STEP H 

700 Y=ATN(1/X) 

710 PRINT X,.Y 

720 NEXT *X 

730 GOTO 210 

739 REM - SUBRUTINA DE ENTRADA DE DATOS - 

740 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR”"; 
750 INPUT A,B 

760 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

770 INPUT H 
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780 PRINT 
790 PRINT 
200 RETURN 
210 END 


ejercicios resueltos: 


1. Estudiar la fu:ición: y 


con un incremento de O.O5. 


SOLUCION 


ESTE PROGRAMA LE 


1.- FUNCION Y = 
2.- FUNCION Y = 
3.- FUNCION Y = 
4.- FUNCION Y = 
S5S.- FUNCION Y = 


6.- FUNCION Y = 


= ARC 


PERMITE 

ARC SEN (%X) 

ARC COS (Xx) 
TAG (Xx) 

ARC COSEC (2%) 

ARC SEC (X) 

ARC COTAG (XxX 


arc sen Xx 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 


INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? O 
INTRODUZCA EL VALOR DEL INCREMENTO? 


VALORES DE 


.05 


VALORES DE Y=ARC SEN (Xx 


FOROICIOOIOODIOOIOOIOIOOIOOIOOIOOIOIOIOIIOIOIIOAAR 


o 


1] 


dm05bdaNN»Ny-r.ro 


a 


an 


can ar 


18] 


2, Estudiar la función: y 


la] 


. 050020857 
.10016742 
. 15056827 
.20135792 
. 25268026 
.30469265 
«3525711 

¿41151685 
. 46676534 
.52359878 
58236424, 
.64350111 

.707584944 
.7753975 

.84806208 
92729522 
1.0159853 
1.1197695 
1.2532359 
1.5707963 


con un incremento de 0.1. 
SOLUCION: 


arc cosec X 


en el 


en el intervalo [O, 1] 


ESTUDIAR LAS SIGUIENTES FUNCIONES : 


H 
nia gju ola aja o 
13 alg e ela ola la 


a 
N 


intervalo [1,2] 
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SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 4 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 2 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y=ARC COSEC (X) 
EE A 

1 1.5707963 

1.1 1.1410967 

1.2 . 98511078 

1.3 .87763642 

1.4 .79560295 

1.5 .72972766 

1.6 67513153 

1.7 .62887493 

1.8 . 58903097 

1.9 .55426183 

2 .52359878 


3. Estudiar la función: y = arc cos X en el intervalo [-1; -0.05] 
con un incremento de 0O.O5. 
SOLUCION :: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-1 -.05 
INTRODUZCA EL VALOR DEL INCREMENTO? .OS 


VALORES DE X VALORES DE Y=ARC COS (X) 
EEES 
-1 3.1415927 
-.95 2.8240322 
2 2.6905658 
-.25 2.5867816 
-.8 2.4980915 
-=.75 2.4188584 
=.2Z 2.3461938 
-=.65 2.2783808 
=.6 2.2142974 
-.55 2.1531606 
=.5 2.0943951 
-.45 2.0375617 
-=.4 1.9823132 
=.35 1.9223674 
=.3 1.875489 
-.25 1.8234766 
-.2 1.7721542 
=.15 1.7213646 
ed 1.6709637 


-.05 1.6208172 


VALOR DE LAS FUNCIONES TRIGONOMETRICAS 
RECIPROCAS 


introducción: 


Este programa sirve para calcular las funciones recíprocas de las 
funciones trigonométricas para un valor dado. Los resultados se expresan 


en radianes. 


listado del programa: 


10 REM IRRRRRRROROROARORORO DEACERO ROO OOOO 
20 REM 


30 REM VALOR DE LAS FUNCIONES TRIG. 
40 REM 

50 REM RECIPROCAS DE UN Xx DADO 

60 REM 


70 REM IRRRRRIORRRRRROROORROIRIRIRRREOOOOAIORIOOOOOOIIIIIIIOIIIIIOIIIIOIIIIOIOIOIIIAS 


100 N$="NO EXISTE NINGUN ANGULO” 

105 R$="RADIANES” 

110 PRINT:PRINT:PRINT 

120 PRINT "INTRODUZCA EL VALOR DE X"; 
130 INPUT X 

140 IF ABS(X)<1 AND X<>0 THEN GOTO 190 
150 IF ABS(X)>1 THEN GOTO 300 

160 IF X=1 THEN GOTO 410 

170 IF X=-1 THEN GOTO 480 

180 IF X=0 THEN 550 

190 A=ASN (Xx) 

200 B=1.5707963-ASN (X) 

210 C=ATN(X) 

220 G=ATN(1/X) 


230 PRINT "ARC SEN("3X3") ="5A3RS 
240 PRINT "ARC COS("5X3") ="5B3RS$ 
250 PRINT "ARC TAG("3X3") ="3C5RS$ 
260 PRINT "ARC COSEC("5X3") ="3NS 
270 PRINT "ARC SEC("3X3") ="3NS 
280 PRINT "ARC COTAG("3X3") ="5G5RS 


290 GOTO 110 
300 D=ASN(1/X) 

310 F=1.5707963-ASN(1/X) 
320 G=ATN(1/X) 

330 C=ATN(X) 


110 FUNCIONES REALES DE VARIABLE REAL 


340 PRINT "ARC SEN("3xX3 
350 PRINT "ARC COS("3x3 
360 PRINT "ARC TAG(";xX;5 
370 PRINT "ARC COSEC("3xXx 
, 
, 


, 
380 PRINT "ARC SEC (13x3%) 
390 PRINT "ARC COTAG("3xX3") 
400 GOTO 110 
405 Pl= 3.141592654 
410 PRINT "ARC SEN (1)  ="3PI/2 ¿RS 
420 PRINT "ARC COS(1) = 0 "¡R$ 
430 PRINT "ARC TAG(1) ="3P1I/9 ¿RS 
440 PRINT "ARC COSEC(1) =";5P1/23RS 
450 PRINT "ARC SEC (1) = 0 "¿Rs 
460 PRINT "ARC COTAG(1) =";3P1I/49;5Rs 
470 GOTO 110 
480 PRINT "ARC SEN (-1)  ="3-PI/2;3RS 
490 FRINT "ARC COS(-1) ="53PI5RS 
500 PRINT "ARC TAG(-1) ="3-PI/9 5RS$ 
510 PRINT "ARC COSEC(-1) ="3-PI/25RS$ 
520 PRINT "ARC SEC (-1) ="j¡PI5R$ 
530 FRINT "ARC COTAG(-1) ="33XPI/49;5RS 
5340 GOTO 110 
550 PRINT "ARC SEN (0) ="305R$ 
560 FRINT "ARC COS(O0) ="3P1/2;R$ 
570 PRINT "ARC TAG(O) ="30R$ 
580 PRINT "ARC COSEC(O) =";NS 
590 PRINT "ARC SEC (0) ="3NS8 


600 PRINT "ARC COTAG(O) =";PI/2;RS 
610 GOTO 110 
620 END 


ejercicios resueltos: 


1. Calcular el valor de las funciones trigonométricas recíprocas para 
x= 1.54 y para x=0. 
SOLUCION: 


INTRODUZCA EL VALOR DE X? 1.54 

ARC SEN( 1.549 ) =NO EXISTE NINGUN ANGULO 
ARC COS( 1.54 ) =NO EXISTE NINGUN ANGULO 
ARC TAG( 1.54 ) .272487773 RADIANES 

ARC COSEC( 1.54 ) .70673027 RADIANES 

ARC SEC (1.59 ) .86406603 RADIANES 

ARC COTAG( 1.54 ) .5759186 RADIANES 


'" 


INTRODUZCA EL VALOR DE Xx”? O 


ARC SEN (0) = O RADIANES 
ARC COS(0) = 1.5707963 RADIANES 
ARC TAG(O) = O RADIANES 


ARC COSEC(O) =NO EXISTE NINGUN ANGULO 
ARC SEC. (0) =NO EXISTE NINGUN ANGULO 
ARC COTAG(O) = 1.5707963 RADIANES 
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x= 


SOLUCION 


Za Calcular 


1 y 


x= -1. 


INTRODUZCA EL VALOR DE X”? 1 


ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


INT 
ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


x= 


SEN (1) 
cos(1) 
TAG(1) 
COSEC (1) 
SEC (1) 
COTAG(1) 


RODUZCA EL 
SEN (-1) 
Cos (-1) 
TAG(-1) 
COSEC (-1) 
SEC (-1) 
COTAG(-1) 


= 1.5707963 RADIANES 
O RADIANES 
.78539816 RADIANES 
1.5707963 RADIANES 
O RADIANES 
.28539816 RADIANES 


'" 


VALOR DE X?-1 

=-1.5707963 RADIANES 
= 3.1415927 RADIANES 
=-.78539816 RADIANES 
=-1.5707963 RADIANES 
3.1415927 RADIANES 
2.3561945 RADIANES 


el valor de las funciones trigonométricas recíprocas para 


3. Calcular el valor de las funciones trigonométricas recíprocas para 


-0.234 


y x= 0.785 


SOLUCION: 


INT 
ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


INT 
ARC 
ARC 
ARC 
ARC 
ARC 
ARC 


RODUZCA EL 
SEN (-.234 
COS (-.234 
TAG(-.234 
COSEC(-.2349 ) 
SEC (-.234 
COTAG(-.234 ) 


VALOR DE X?-.234 

) =-,.23618988 RADIANES 

) = 1.8069862 RADIANES 

) -.22986408 RADIANES 

NO EXISTE NINGUN ANGULO 
NO EXISTE NINGUN ANGULO 
-1.3409322 RADIANES 


) 


RODUZCA EL VALOR DE Xx? .785 

SEN( .?85 ) = .?0269613 RADIANES 
cost .785 ) = .66810017 RADIANES 
TAG( .785 ) = .66552744 RADIANES 
COSEC( .785 ) =NO EXISTE NINGUN ANGULO 
SEC( .785 ) =NO EXISTE NINGUN ANGULO 
COTAG( .785 ) = .90526888 RADIANES 


FUNCIONES HIPERBOLICAS DIRECTAS 


introducción: 


Este programa permite estudiar las funciones hiperbólicas directas 
El cálculo se realiza a partir de las definiciones de las funciones, del 
siguiente modo: 


+ 
sen hx= 3 cos hx= + 


tg hx= 


Es preciso introducir los límites del intervalo asi como el incre- 
mento de la variable x. 


listado del programa: 


10 REM IRRRSSOROSRRCORIORIRIIOOIIIRIRIRIRORIIOIRIOIRROOROOOIOOIOOIOIOOIOOIOOIOIOA AAAARA 
20 REM 


30 REM ESTUDIO DE LAS FUNCIONES 
40 REM 

50 REM HIPERBOLICAS DIRECTAS 

60 REM 


TI EEES 
100 PRINT 

1110 RS= "RRA 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :" 
130 PRINT 

140 PRINT 

150 PRINT "1.- FUNCION Y = SENH (X)" 

160 PRINT "2.- FUNCION COSH (x)"” 

170 PRINT "3.- FUNCION Y TAGH (X)" 

180 PRINT:PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" 5 

200 INPUT P 

210 IF P=-:1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 479 

249 REM - ESTUDIO DE LA FUNCION Y = SENH (Xx) - 

250 PRINT "VALORES DE X", "VALORES DE Y=SENH (X)" 

260 PRINT Rs 


< 
" 
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270 FOR X=A TO B STEP H 

280 Y = (EXP (X)-EXP (-X))/2 

290 PRINT X,Y 

300 NEXT X 

310 GOTO 180 

320 GOSUB 479 

329 REM - ESTUDIO DE LA FUNCION Y = COSH (X) - 
330 PRINT "VALORES DE X", "VALORES DE Y=COSH(X)" 
340 PRINT Rs 

350 FOR X=A TO B STEP H 

360 Y = (EXP(X)+EXP(-X))/2 

370 PRINT X,Y 

380 NEXT X 

390 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = TAGH (X) - 
410 PRINT "VALORES DE X", "VALORES DE Y=TAGH(X)" 
420 PRINT Rs 

430 FOR X=A TO B STEP H 

490 Y=(EXP(X)-EXP(-X))/(EXP(X)+EXP(-X)) 

450 PRINT X,Y 

460 NEXT X 

470 GOTO 180 

479 REM - SUBRUTINA DE ENTRADA DE DATOS - 

480 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR” ; 
490 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 
510 INPUT H 

520 PRINT 

530 PRINT 

540 RETURN 

550 END 


ejercicios resueltos: 


1. Estudiar la función: y =coshx enel intervalo [-1, 1] con 
un incremento de 0.05. 
SOLUCION: 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


1.- FUNCION Y = SENH (X) 
2.- FUNCION Y = COSH (X) 
3.- FUNCION Y = TAGH (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-1 1 
INTRODUZCA EL VALOR DEL INCREMENTO? .0S 


VALORES DE X VALORES DE Y=COSH(X) 
FARINA 
=d. 1.5430806 
-=.95 1.4862253 
419 * 1.4330864 


-.85 1.3835309 
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-.8 1.3374349 
-.75 1.2946833 
-.7 1.255169 
-.65 1.2187933 
-.6 1. 1854652 
-.55 1.1551014 
-.5 1.127626 
-.45 1.1029702 
-.4 1.0810724 
-.35 1.0618778 
-.3 1.0453385 
-.25 1.0314131 
-.2 1.02006682 
-.15 1.0112711 
-.1 1.0050042 
-.05 1.0012503 
3.6379788E-12 1 
.05 1.0012503 
21 1.0050042 
.15 1.0112711 
«2 1.0200668 
.25 1.0314131 
AS 1.0453385 
.35 1.0618778 
.4 1.0810724 
.45 1.1029702 
.S 1.127626 
.55 1.1551014 
.6 1. 1854652 
.65 1.2187933 
7 1.255169 
.75 1.2946833 
.8 1.3374349 
.85 1.3835309 
.9 1.4330864 
.95 1.4862253 
1 1.5430806 


Za Estudiar la función: y = sen h x en el intervalo [-3, -2] con 
un incremento de O.O5. 
SOLUCION : 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA "LOS EXTREMOS DEL INTERVALO A TABULAR?-3 =2 
INTRODUZCA EL VALOR DEL INCREMENTO? .0OS 


VALORES DE X VALORES DE Y=SENH (X) 
IO 
-3 -10.017875 
-2.95 -9.526807 
LA -9.0595611 
-2.85 -8.6149688 
-2.8 -8.1919184 
-2.75 -7.789352 
-2.7 -7.4062631 
-2.65 -7.0416937 
-2.6 -6.6947322 


-2.55 -6.3645111 
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-2.5 -6.0502045 
-2.45 -5.7510266 
-2.4 -5.4662292 
-2.35 -5.1951003 
-2.3 -4.9369618 
-2.25 -4.6911683 
202 -4.4571052 
-2.15 -4.2341871 
-2.1 -4.0218567 
-2.05 -3.8195831 
=2 -3.6268604 


3. Estudiar la "función: y = tag h x en el intervalo [2, 3] 


un incremento de 0.1. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 2 3 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y=TAGH(X) 
IAN: 
2 .96402758 

2.1 .970451949 

2.2 97574313 

2.3 . 9800964 

2.4 . 98367486 

2.5 .?866143 

2.6 .9890274 

2.7 .99100745 

2.8 . 99263152 

2.9 . PIIP6317 

3 . 99505475 


con 


FUNCIONES HIPERBOLICAS INVERSAS 


introducción: 


Este programa sirve para estudiar las funciones hiperbólicas inver 
sas: y = cosec h x, y = sec h x, y=cotghx. 

El calculo se realiza directamente a partir de las definiciones de 
las funciones hiperbólicas directas. 

Es necesario introducir los límites del intervalo asi como el in- 


cremento de la variable x. 


listado del programa: 


10 REM III III III RARA 
20 REM 


30 REM ESTUDIO DE LAS FUNCIONES 
40 REM S 

50 REM HIPERBOLICAS INVERSAS 

60 REM 


70 REM IRA 
100 PRINT 

110 RS= MIRROR 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES :" 

130 PRINT 

140 PRINT 

150 PRINT "1.- FUNCION Y 
160 PRINT "2.- FUNCION Y 
170 PRINT "3.- FUNCION Y 
180 PRINT:PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE" 5; 
200 INPUT P 

210 IF P=1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 479 

249 REM - ESTUDIO DE LA FUNCION Y = COSECH (X) - 

250 PRINT "VALORES DE X", "VALORES DE Y=COSECH (X)" 

260 PRINT R$ 

270 FOR X=A TO B STEP H 

280 Y = 2/(EXP(X)-EXP(-X)) 

290 PRINT X,Y 


COSECH (X)” 
SECH (X)" 
COTAGH (X)" 
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300 
310 
320 
329 
330 
340 
350 
360 
370 
380 
390 
400 
409 
410 
420 
430 
440 
450 
460 
470 
479 
480 
490 
500 
510 
520 
530 
540 
550 


ejercicios resueltos: 


1. Estudiar la función: y 


NEXT Xx 
GOTO 1 
GOSUB 
REM - 
PRINT 
PRINT 


=J0) 
479 


ESTUDIO DE LA FUNCION 


"VALORES DE X", 


R$ 


FOR X=A TO B STEP H 
Y=2/ (EXP (X)+EXP (-X)) 


PRINT 
NEXT X 
GOTO 1 
GOSUB 
REM - 
PRINT 
PRINT 


X, Y 


[=J0) 
479 


ESTUDIO DE LA FUNCION 


"VALORES DE X”, 


R$ 


FOR X=A TO B STEP H 
Y=(EXP (X)+EXP (-X))/(EXP (X)-EXP (-X)) 


PRINT 

NEXT X 
GOTO 1 
REM - 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

PRINT 

RETURN 
END 


X.Y 


80 


"VALORES DE Y=SECH 


Y = SECH (X) 


Y = COTAGH (X) 
"VALORES DE Y=COTAGH 


SUBRUTINA DE ENTRADA DE DATOS - 


"INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR" 


A,B 


"INTRODUZCA EL VALOR DEL INCREMENTO"; 


H 


un incremento de O.O5. 


SOLUCION 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES : 


L:= 
2.- 
SS. = 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1 


FUNCION 
FUNCION 
FUNCION 


Y 
Y 
Y 


COSECH (X) 
SECH (X) 
COTAGH (X) 


= cosec h x 


INTRODUZCA EL VALOR DEL INCREMENTO? .O5 


VALORES DE X 
FOROOAICIOOOOOOAIAOIIIOIAIAIIAAAR: 


VALORES 


. 25091813 
.729753931 
. 74870055 
. 70383969 
. 66248798 
.62425126 
. 58879554 


DE Y=COSECH (X) 


0)” 


en el intervalo 


con 
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1.35 ¿55583575 
1.4 ¿52512693 
1.45 . 49645725 
£.5 . 46964244 
1.55 . 44452128 
1.6 . 42095197 
1.65 .39880916 
1.2 .37798153 
1.75 .35836971 
1.8 .33988469 
1.85 .32244634 
1.9 . 3059823 

1.95 . 290942694 
2 .27572056 

Ze Estudiar la función: y = sec h x en el intervalo 


con un incremento de O.1l. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TAEULAR?-1 1.1 


INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y=SECH (2%) 
ES 
8 .64205427 
.?2 .69779464 
-.8 . 24769992 
ES .72670546 
=.é .84355069 
= 3 «38681828388 
-.4 . 225300745 
=.3 95662791 
e . 9280328 
yd . 995302075 
-5.4569682E-12 1 
.1 . 29502075 
.2 . 930328 
.3 .P5662791 
.4 . 22500745 
.5 «¿386818828 
.6 . 24355069 
.? . 72670546 
.8 . 724769992 
.9 . 69779464 
1 . 64805927 


1.1 599733406 


[ -1; 


a 


in 


RAZONES HIPERBOLICAS DE UN ANGULO DADO 


troducción: 


Este programa sirve para calcular las razones hiperbólicas directas 


e inversas de un ángulo dado. 


listado del programa: 


10 
20 
30 


REM ICAO: 
REM 
REM RAZONES HIPERBOLICAS 
REM 

REM. DE UN ANGULO DADO 
REM 
REM IRRRICRCIAROIRIAIOIRRIOIRRIRR OOOO OOOO: 
PRINT 

PRINT 

PRINT "INTRODUZCA EL VALOR DE Xx"; 

INPUT Xx 

A=EXP (X) -EXP(-X) 

B=EXP (Xx) +EXP(-X 

F1=A/2 

F2=B/2 

FI=A/B 

F4=1/F1 

FS=1/F2 

Fé=1/F3 

PRINT 

PRINT 

REM -SALIDA DE RESULTADOS - 

PRINT "SENH("3X3") ="3F1 


PRINT "COSH("5X5") ="5F2 
PRINT "TAGH("3X3") ="3F3 
PRINT "COSECH("3X3") ="3F4 
PRINT "SECH("5X5") ="5FS 
PRINT "COTAGH("5X3") ="5F6 
GOTO 100 

END 


120 FUNCIONES REALES DE VARIABLE REAL 


ejercicios resueltos: 


1. Calcular las razones hiperbólicas directas e inversas de x= 2,4 
y de x = -6.78. 
SOLUCION: 


INTRODUZCA EL VALCR DE X 


INTRODUZCA EL VALOR DE Xx? 2.4 


SENH( 2.4 ) = 5.4662292 
COsH(t 2.4 ) = 5.5569472 
TAGH( 2.4 ) = .98367486 
COSECH( 2.4 ) = .182994147 
SECH( 2.4) = ¿17995492 
COTAGH( 2.9 ) = 1.0165961 


INTRODUZCA El VALOR DE %X7?-6.78 


SEMH(-6.72 ) =-340.03279 
COSH(-6.72 ) = 440.03493 
TAGH(-6.72 ) =-.299979742 
COSECH(-6.78 ) =-.0022725527 


SECH(-6.73 ) +00227 25469 
COTAGH(-€¿.78 ) =-1.000C0026 


Ze Calcular las razones hiperbólicas directas e inversas de x = 2,6 
y de x = -0.25. 
SOLUCION: 


INTRODUZCA EL VALOR DE X”? 2.6 


SENH( 2.6 ) = 6.6947322 
COSH( 2.6 ) = 6.7670058 
_TAGH( 2.6 ) = .92890274 
COSECH( 2.6 ) = .149372117 
SECH( 2.6 ) = .14773218 
COTAGH( 2.6 ) = 1.0110943 


INTRODUZCA EL VALOR DE X?-.25 


SENH(-.25 ) =-.25261232 
CcosH(-.25 ) = 1.0314131 
TAGH(-.25 ) =-.24491866 
COSECH(-.25 ) =-3.9586352 
SECH(-.25 ) = .26954363 
COTAGH(-.25 ) =-4.0829882 


FUNCIONES HIPERBOLICAS RECIPROCAS 


introducción: 


Este programa sirve para estudiar las funciones hiperbólicas recíÍ- 
procas de las funciones hiperbólicas directas, es decir: 
y = arc sen h x y = arc cos h x y = arc tg h x 


La función y arc sen h x está definida para todo valor de x. 


La función y arc cos h x está definida en el abierto (1, %). 
La función y = arc tag h x está definida en el abierto (-1, 1). 
Como siempre hemos de introducir los límites del intervalo a estudiar, asi 


como el incremento de la variable x. 


listado del programa: 


10 REM IRRROOOOOOIOORIOOOIOOOOIRIOOIIIOIIIOIOIIIOIIIIIOIOIOIRIRIIIOIOIIOIIIIIOIIIIIOIIIIA 
20 REM 


30 REM ESTUDIO DE LAS FUNCIONES 

40 REM 

50 REM HIPERBOLICAS RECIPROCAS 

60 REM 

20 REM IRSA OA 
100 PRINT 


110 RS$= "RRA AAA 

120 PRINT "ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES" 
130 PRINT 

140 PRINT 

150 PRINT "1.- FUNCION Y = ARC SENH (X)" 

160 PRINT "2.- FUNCION Y ARC COSH (X)"” 

170 PRINT "3.- FUNCION Y ARC TAGH (X)" 

180 PRINT:PRINT 

190 PRINT "SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT P 

210 IF P=1 THEN 240 

220 IF P=2 THEN 320 

230 IF P=3 THEN 400 

240 GOSUB 479 

249 REM - ESTUDIO DE LA FUNCION Y = ARC SENH (X) - 

250 PRINT "VALORES DE X", "VALORES DE Y = ARC SENH (X)" 

260 PRINT Rs 
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FOR X=A TO B STEP H 

Y=LOG (X+SQR (XXX+1)) 

PRINT X,Y 

NEXT Xx 

GOTO 180 

GOSUB 479 

REM - ESTUDIO DE LA FUNCION Y = ARC COSH (Xx) - 
330 PRINT "VALORES DE X", "VALORES DE Y = ARC COSH (Xx)" 
340 PRINT R$ 

350 FOR X=A TO E STEP H 

360 Y=LOG(X+SQR (XXX-1)) 

370 PRINT X,Y 

380 NEXT X 

390 GOTO 180 

400 GOSUB 479 

409 REM - ESTUDIO DE LA FUNCION Y = ARC TAGH (X) - 
410 PRINT "VALORES DE X", "VALORES DE Y = ARC TAGH (X)” 
420 PRINT RS 

430 FOR X=A TO B STEP H 

440 Y=.5XLOG((1+X)/(1-X)) 

450 PRINT X,Y 

960 NET X 

47060 GOTO 180 

479 REM SURUTINA DE ENTRADA DE DATOS - 

480 PRINT "INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR”; 
490 INPUT A,B 

500 PRINT "INTRODUZCA EL VALOR DEL INCREMENTO"; 

510 INPUT H 

520 PRINT 

530 PRINT 

540 RETURN 

550 END 


Doy 
¿OOOO 


td 14 dd ANNAN 
5 5) 


”NNyr”o 


50] 


ejercicios resueltos: 


Leite la función: y = arc sen h x en el intervalo Í-1, 1.1] 
con un incremento igual a O.O5. 
SOLUCION: 


ESTE PROGRAMA LE PERMITE ESTUDIAR LAS SIGUIENTES FUNCIONES 


1.- FUNCION Y 
2.- FUNCION Y 
3.- FUNCION Y 


ARC SENH, (X) 
ARC COSH (X) 
ARC TAGH (X) 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE”? 1 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-1 1.1 
INTRODUZCA EL VALOR DEL INCREMENTO? .0S 


VALORES DE X VALORES DE Y = ARC SENH (X) 
HRIIIICICIOIIIICIRIAIIIIIIRIIORRIIRIOIOIORRIIIRIRRA: 
-1 -.88137359 

-.95 -.8455727 

-.9 -.30836694 


-.85 77123793 
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-.8 -.73266826 
=.75 -.69314718 
ES - 65266657 
-=.65 -=.61122431 
=>.6 -.5688249 
.55 -.52548045 
=.5 -,48121183 
-.45 -. 43604967 
4 -. 39003532 
-.35 -.34322156 
+ 3 -=.29567305 
-=.25 -.24746646 
No -. 19869011 
=.15 -.14944312 
04 -.099834079 
-=.05 -.04997919 
3.6379788E-12 [o] 
.05 .04997919 
.1 . 099834079 
.15 . 14944312 
.2 .192869011 
.25 .24746646 
.3 .29567305 
.35 . 34322156 
.4 . 39003532 
.45 . 43604967 
.5 . 48121132 
.55 . 52548045 
.6 . 56823249 
.65 61122431 
.? .65266657 
.?5 69314718 
.8 . 73266826 
.85 .2727123743 
.9 . 30886694 
.95 . 8455727 
1 . 38137359 
1.05 .921629073 
1.1 .25034693 


E Estudiar la función: y = arc tag h x en el intervalo [-.9, .9] 
con un incremento igual a 0.1. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR?-.9 .? 
INTRODUZCA EL VALOR DEL INCREMENTO? .1 


VALORES DE X VALORES DE Y = ARC TAGH (X) 
ES 
7 -1.4722195 

-.8 -1.0986123 

a 2 -.86730053 

-=.6 -.69314718 

=.5 -.54930614 

-.49 -. 42364893 

=.3 . -.3095196 


2 -.20273255 
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-.1 -.10033535 
-4.5474735E-12 -1.4351915E-11 

sil . 10033535 

.2 .20273255 

ÉS .3095196 

.4 . 42364893 

.5 .54930614 

.6 .69314718 

7 .86730053 

.2 1.0986123 

.? 1.4722195 

3. Estudiar la función: y = arc cos h x en el intervalo[1.1, 3.1] 


con un incremento ¡igual a 0.2. 
SOLUCION: 


SEGUN LA OPCION DESEADA PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS EXTREMOS DEL INTERVALO A TABULAR? 1.1 3.1 
INTRODUZCA EL VALOR DEL INCREMENTO? .2 


VALORES DE X VALORES DE Y = ARC COSH (X) 
RINA 
. 44356825 

.7?5643291 

6242365 

1.123231 

1.2571958 

1.3728591 

1.4750448 

1.5667992 

1.6501935 

1.2?267109 

1.7974566 


AUNNNNN-*-*hahno 
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VALOR NUMERICO DE LA PRIMERA DERIVADA DE 
UNA FUNCION EN UN PUNTO 


introducción: 


da 
lin 
El 
da. 


Este programa permite hallar el valor aproximado que toma la deriva 
de una función en un punto. La tunción a derivar se ha de definir en la 
ea 170, del siguiente modo: 170 DEF FN F(X) = ...... 


cálculo de la derivada se realiza con arreglo a la definición de deriva 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
109 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
259 
260 
270 
280 
290 
300 
310 


REM IRRADIA AA 
REM 
REM DERIVADA DE UNA FUNCION 
REM 
REM EN UN PUNTO 
REM 
SI EDI 
PRINT 

REM - ENTRADA DE DATOS - 

PRINT "DEFINA LA FUNCION A DERIVAR EN LA LINEA 170" 

PRINT "DEL MODO SIGUIENTE : 170 DEF FN F(X)=.......” 

PRINT "A CONTINUACION PULSA <CONT>" 

sTOP 

PRINT "PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA Xx0O ="; 
INPUT XxO 

DEF FN F(X)= 

H=0 

“FOR J=1 TO 8 

H1=H 

X=X0+.5%J 

H=(FN F(X)- FM F(X0))/(X-X0) 

NEXT J 

D=2X*H-H1 

PRINT 

REM -SALIDA DEL RESULTADO - 

PRINT "EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO="3X0;"ES D(XO)="3D 
PRINT 

PRINT 

PRINT 

GOTO 150 

END 
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ejercicios resueltos: 


Xx 


1. Hallar la derivada de la función: y = X + sen X ser 


en los puntos: 1, 1/2, 2. 
SOLUCION: 


DEFINA LA FUNCION A DERIVAR EN LA LINEA 170 
DEL MODO SIGUIENTE : '170 DEF FN F(X)=....... 
A CONTINUACION PULSA <CONT> 

170 DEF FN F(X)=X"X+SIN(X)XEXP (X) -LOG(X+3) 


- 


PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0O =” 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO= 1 ES D(X0)= 


FUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0 =? .5 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO xXO= .5 ES D(*X0) 


FUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0 =72 
El VALOR APRO*IMADO DE LA DERIVADA EN EL PUNTO xO= 


» 
£ 
» 
£ 


ES D(X0)= 


- Ln(x+3) 


4.5060422 


2.1685925 


10.21646 


Arnaias la derivada de la función: y = e +cosx en los puntos 


1, -2, 0. 
SOLUCION: 


DEFINA LA FUNCION A DERIVAR EN LA LINEA 170 
DEL MODO SIGUIENTE : 170 DEF FN F(X)=....... 
A CONTINUACION PULSA <CONT> 

170 DEF FN F(X)=EXP (Xx) +C0S(X) 


PUNTO EN EL QUE-*QUIERE ESTUDIAR LA DERIVADA XO =7? 1 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO= 1 ES D(X0)= 


PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0O =”? -2 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PtNTO X0=-2 ES D(x0)= 


PUNTO EN EL QUE QUIERE ESTUDIAR LA DERIVADA X0O =? O 
EL VALOR APROXIMADO DE LA DERIVADA EN EL PUNTO XO0O= O ES D(X0)= 


1.8767927? 


1.0446367 


.99999493 


ECUACIONES DE LA TANGENTE Y LA NORMAL A 
UNA CURVA, CRECIMIENTO Y DECRECIMIENTO DE 
UNA FUNCION EN UN PUNTO 


introducción: 


Este programa permite obtener las ecuaciones de la recta tangente y 
normal a una curva en un punto. Además estudia, a partir del coeficiente an 
gular de la recta tangente, el crecimiento o decrecimiento de la función 
en el punto considerado. 

Es importante destacar que todo el cálculo es aproximado, y tener 
mucho cuidado en los puntos de discontinuidad de la función. 

La función se define en la linea 170 del siguiente modo: 

170 DEF FN F(X) = ...... 


listado del programa: 


10 REM IORORICROIOORICORIAIAOORIOOOIOOICIOIIOIAOOIIOIOOIAIAIIIICOAAAARIIIAAA 
20 REM 

30 REM ECUACIONES DE LA TANGENTE Y LA 

90 REM 

50 REM NORMAL A UNA CURVA EN ÚUonN PUNTO 

60 REM 

70 REM CRECIMIENTO Y DECRECIMIENTO 

80 REM 

20 REM IOROIORIOOROO REO RORIOOOOIORRICIORRIOODRRICIORIAICIOOROAOIAICOAICAAAAIAA AAA 
100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 1 
20" 

120 PRINT "DEL MODO SIGUIENTE : 170 DEF FN F(X)=......." 

130 FRINT "A CONTINUACION PULSE <CONT>" ; 

140 STOP 

150 PRINT "PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL xO ="; 

160 INPUT *xO 

170-DEF FN F(X)= 

120 H=0 

190 FOR J=1 TO 8 

200 H1=H 

210 X=X0+.5*J 

220 H=(FN F(X)- FN F(X0))/(x-Xx0) 

230 NEXT J 
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240 D=2xH-Hi 

250 YO=FN F(X0) 

259 REM - REDONDEO DEL VALOR DE LA DERIVADA - 
260 D1=INT(DX*1000+.5)/1000 


270 PRINT 

280 PRINT "LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO ="3x05"ES :” 
290 PRINT "Y ="3D13"%X x +"3YO-D1XXO 

300 PRINT 

310 IF Di=0 THEN GOTO 350 

320 PRINT "LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO 10 ="5x03"ES 1" 


330 PRINT "Y ="3-1/D13"X X +"3Y0O+X0/D1 

340 GOTO 390 

350 PRINT 

360 PRINT "LA ECUACION DE LA NORMAL A LA CURVA EN EL FUNTO 40 ="3% 
370 PRINT "Xx ="3x0 

380 REM 

390 PRINT 

400 IF Di1>0 THEN 450 

410 IF Di=0 THEN 470 

420 PRINT 

430 PRINT "LA FUNCION ES ESTRICTAMENTE DECRECIENTE EN EL PUNTO X0 ="3x0 
440 STOP 

450 PRINT "LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO X0O ="32x 
460 STOP 

470 PRINT "LA FUNCION TIENE UN PUNTO ESTACIONARIO EN EL PUNTO x0 ='"5340 
480 END 


ejercicios resueltos: 


1onar1ar las ecuaciones de la tangente y la normal a la curva: 
y=X - cos x<+Lnx en el punto x= 1. Decir si la función es crecien 
te o decreciente en dicho punto. Analogo en los puntos x= Ze x= 10. 
SOLUCION: 


DEFINA LA FUNCION FARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 1-0 
DEL MODO SIGUIENTE": 170 DEF FN F(X)=....... 

A CONTINUACION PULSE <CONT> 

170 DEF FN F(X) = X*X-COS(X)+LOG(X) 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL X0O =7? 1 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO 
Y = 3.841 %* X +-3.3813023 


'" 
e 
m 
0 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 1 ES : 
Y =-.26034887 * X + .72004656 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO xO 


'" 
- 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =7? 2 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 2 ES : 
Y = 5,409 * X +-5.708706 
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LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = Z ES : 
Y =-.18487706 * X + 5.4790481 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO = 2 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =7? 10 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 10 ES : 
Y = 19.556 * X +-92.418343 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 10 ES ; 
Y =-,051135201 * X + 103.65301 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO = 10 


Zo altar las ecuaciones de la tangente y la normal a la curva: 
y = e* - sen x, en los puntos: 1, O, -2. Estudiar el crecimiento de la 
función en dichos puntos. 


SQLUCION: 


DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 170 
DEL MODO SIGUIENTE : 170 DEF FN Fí(X)=....... 

A CONTINUACION PULSE <CONT> 

170 DEF FN F(X)=EXP(X)-SIN(X) 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =7? 1 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 1 ES : 
Y = 2.178 * X +-.30118916 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 1 ES : 


Y =-,45913682 * X + 2.3359477 dd 
LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO XO = 1 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =? O 
LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 0 ES : 
Y=0%*X+1 

LA ECUACION DE LA NORMAL A LA CURVA EN» EL PUNTO XO = O ES : 
x=0 


LA FUNCION TIENE UN PUNTO ESTACIONARIO EN EL PUNTO xO = O 
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PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =7?-2 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO =-2 ES : 
Y = ¿551 *X X + 2.1466327 


LA ECUACION DE LA MORMAL A LA CURVA EN EL PUNTO XO =-2 ES : 
Y =-1,814882 X* X +-2.58517314 


LA FUNCION ES ESTRICTAMENTE CRECIENTE EN EL PUNTO xO =-2 


3. Hallar las ecuaciones de la tangente y la normal a la curva: 
y = x? - 6x + 8, en los puntos: O, 1, 3. Estudiar el crecimiento de la 
función en dichos puntos. 
SOLUCION: 


DEFINA LA FUNCION PARA LA QUE QUIERE HALLAR LA TANGENTE EN LA LINEA 170 
DEL MODO SIGUIENTE : 1720 DEF FN F(X)=....... 

A CONTINUACION PULSE <CONT> 

170 DEF FN F(X)=XXX-6%*x+8 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO =? O 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = O ES : 
=-6 XX X + 8 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = O ES 
Y = ,16666667 * Xx + 8 


LA FUNCION ES ESTRICTAMENTE DECRECIENTE EN EL PUNTO XO = O 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO 


'" 
0] 
- 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL FUNTO XO = 1 ES 
Y =-94 XX + 7 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 1 ES 
Y = 25% Xx + 2.75 


LA FUNCION ES ESTRICTAMENTE DECRECIENTE EN EL PUNTO XO = 1 


PUNTO EN EL QUE QUIERE HALLAR LA TANGENTE Y LA NORMAL XO 


'" 
0] 
U 


LA ECUACION DE LA TANGENTE A LA CURVA EN EL PUNTO XO = 3 ES 
Y=0%X Xx +-1 


LA ECUACION DE LA NORMAL A LA CURVA EN EL PUNTO XO = 3 ES : 
X= 3 


LA FUNCION TIENE UN PUNTO ESTACIONARIO EN EL PUNTO XO = 3 


VALOR NUMERICO DE UN POLINOMIO Y SUS 
DERIVADAS EN UN PUNTO 


introducción: 


cia 


Este es un interesante programa que permite obtener el valor numé- 


o de un polinomio en un punto, asi como el valor numérico de sus deri- 


vadas en ese punto. 


pol 


El polinomio se introduce escribiendo los coeficientes C(J) del 


inomio en la linea 160. 


listado del programa: 


10 
20 
30 
40 


REM IRROOOOOOOROOOOORORORROIOOROIOOOOOOIOIIOOIOOIIOIOIIOIIIOOIIIIOIOIIIIOIOIIII 


REM 

REM VALOR NUMERICO DE UN FOLINOMIO 

REM 

REM Ay DE sus DERIVADAS EN UN PUNTO 
REM 


REM IORRROROROROSOO OOOO OOOO OJO III III NITRO AAA 
PRINT 

REM - ENTRADA DE DATOS - 

PRINT "GRADO DEL POLINOMIO"; 

INPUT N 

DIM C(M+1),D(2XMN) 

FOR J=0 TO N 

PRINT "COEFICIENTE DE X"";N-J; 


INPUT C(J) 
NEXT J 


PRINT 
PRINT "PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS XO ="; 
INPUT XO ; 

PRINT 

FOR J=0 TO N 

D(J)=C(N-J) 

NEXT J 

F=1 

FOR J=1 TON 

FOR I=1 TON 

L=N+J-1-1 

D(L)=D(L)+D(L+1)XXO 

NEXT 1 

D(L)=FXD(L) 

F=FXJ 
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330 NEXT J 
2340 D(N)=FXDI(N) 
349 REM - SALIDA DE RESULTADOS - 


350 PRINT "EL FOLINOMIO EN ="3xX03"ES ="3D(0) 

360 FOR J=1 TO N 

2370 PRINT "LA DERIVADA DE ORDEN";J;"EN X="3X053"ES ="3D(J) 
380 NEXT J 

390 PRINT 


400 PRINT "DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N"; 
410 INPUT Cs$ 

420 IF C$="N" THEN GOTO 440 

430 GOTO 130 

440 END 


ejercicios resueltos: 


Aena el valor numérico del polinomio siguiente: 
x* - 2x> + 3x* + 4x> - 5x? + 6x +7 
asi como el de sus derivadas en los puntos -1, 5, -0.5. 


SOLUCION: 


GRADO DEL POLINOMIO? á 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 
CDEFICIENTE DE Xx” 


1 


OrNdad5sago 

EEES 
1 

No0dadqdNr- 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS X0O =?-1 


EL POLINOMIO EN X=-1 ES =-2 


LA DERIVADA DE ORDEN 1 EN X=-1 ES = O 

LA DERIVADA DE ORDEN 2 EN X=-1 ES = 72 

LA DERIVADA DE ORDEN 3 EN X=-1 ES =-238 

LA DERIVADA DE ORDEN 4 EN X=-1 ES = 672 

LA DERIVADA DE ORDEN S EN X=-1 ES =-960 
ó 


LA DERIVADA DE ORDEN EN *=-1 ES = 720 


DESEA CALCULAR LA DERIVADA EN OTRO FUNTO S/N?S 
PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS X0O =7? 5 


EL POLINOMIO EN X= 5 ES = 11662 


LA DERIVADA DE ORDEN 1 EN X= 5 ES = 14256 
LA DERIVADA DE ORDEN 2 EN X= 5 ES = 14760 
LA DERIVADA DE ORDEN 3 EN X= 5 ES = 12384 
LA DERIVADA DE ORDEN 4 EN X= 5 ES = 7872 
LA DERIVADA DE ORDEN S EN X= 5 ES = 3360 
LA DERIVADA DE ORDEN 6 EN X= 5 ES = 720 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 
PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS xO =?-.5 


EL POLINOMIO EN =-.5 ES = 2.515625 
LA DERIVADA DE ORDEN 1 EN X=-.5 ES = 11.6875 
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EN X=-.5 ES =-6.125 
EN X=-.5 ES =-57 

EN X=-.5 ES = 282 
EN (=-.5 ES =-600 
EN X=-.5 ES = 720 


LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 
LA DERIVADA DE ORDEN 


0o05dN 


2. Calcular el valor numérico del polinomio siguiente: 
e +4 
asi como el de sus derivadas en los puntos: -7, 4, 3. 


SOLUCION: 


GRADO DEL POLINOMIO? = 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 
COEFICIENTE DE X” 
COEFICIENTE DE X” 


Ori 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS Xx0 =?-7 


EL POLINOMIO EN X=-7? ES =-731 


LA DERIVADA DE ORDEN 1 EN - X=-7 ES = 308 
LA DERIVADA DE ORDEN 2 EN  X=-7 ES =-86 
LA DERIVADA DE ORDEN 3 EN X=-7 ES = 12 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 
PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS XO =? 4 


EL POLINOMIO EN X= 4 ES = 116 

LA DERIVADA DE ORDEN 1 EN X= 4 ES = 88 
LA DERIVADA DE ORDEN 2 EN X= 4 = 4 
LA DERIVADA DE ORDEN 3 EN X= 4 ES = 12 


m 
mn 
l 


DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N ?S 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS XO =? 3 


EL POLINOMIO EN - X= 3 ES = 49 


LA DERIVADA DE ORDEN 1 EN == 3 ES = 48 
LA DERIVADA DE ORDEN 2 EN X= 3 ES = 34 
LA DERIVADA DE ORDEN 3 EN X= 3 ES = 12 


3. Calcular el valor numérico del polinomio siguiente: 
dl raros 
asi como el de sus derivadas en los puntos: -1, o, 3. 


SOLUCION: 


GRADO DEL POLINOMIO? 4 
COEFICIENTE DE X” 4 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X”* 


OrNnm di 
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PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 


EL POLINOMIO EN X=-1 ES = 4 

LA DERIVADA DE ORDEN 1 EN  X=-1 ES = 3 
LA DERIVADA DE ORDEN 2 EN X=-1 ES =-32 
LA DERIVADA DE ORDEN 3 EN X=-1 ES = 249 
LA DERIVADA DE ORDEN EN  X=-1 ES =-72 


DESEA CALCULAR LA DERIVADA EN OTRO FUNTO S/N?3S 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 


EL POLINOMIO EN 1= 0 E = 2 

LA DERIVADA DE ORDEN 1 EN X= 0 ES = 1 

LA DERIVADA DE ORDEN 2 EN X= O ES ló 

LA DERIVADA DE ORDEN 3EN *X= 0 ES = 12 

LA DERIVADA DE ORDEN 4 EN X= O ES =-22 

DESEA CALCULAR LA DERIVADA EN OTRO PUNTO S/N?S 


PUNTO EN EL QUE DESEA ESTUDIAR LA FUNCION Y SUS DERIVADAS 


EL POLINOMIO EN X= 3 ES =-112 

LA DERIVADA DE ORDEN 1 EN = 3 ES =-221 
LA DERIVADA DE ORDEN 2 EN X= 3 ES =-272 
LA DERIVADA DE ORDEN 3 EN x= 3 ES -204 
LA DERIVADA DE ORDEN 4 EN X= 3 ES =-72 


0 


APROXIMACION DE LA FUNCION Y = SEN (X) 


introducción: 


Este programa permite obtener una aproximación de la función 
y = sen x mediante desarrollo en serie. Al mismo tiempo calcula el va- 
lor del sen x con arreglo a la función de librería SIN(X) que posee el 


microordenador y por último calcula la diferencia entre las dos funciones. 


listado del programa: 


10 REM RRRRRRRRRROROOROROARARORORDARORAORDARDOOORRIRIIAIOIOA OOOO IIA A 
20 REM 

30 REM APROXIMACION DE LA FUNCION 

40 REM 

50 REM Y=SEN (%) POR DESARROLLO EN SERIE 

60 REM 

70 REM IRRRRRORRRORRCOROARDARORARDARORDOREORIAIAOOIAOOIII OOOO 
100 PRINT 

110 PRINT " Xx serie: SIN(X) tunc: SIN(X) DIFERENCIA" 
120 PRINT  "MRRRRRRRORRAODOARDORODARDORDEAREARADORARRRORARORADEARAORDEORADRRIORARDRRCORCCARAAA 
ION 

130 PRINT 

140 Pl= 3.141592653589793 

150 xO=1 

160 FOR X=0 TO 2*PI STEP .1 

170 X1=ABS(X) 

180 X1=X1-2*PIXINT(X1/(2*PI)) 

190 IF X1>PI THEN XO=-1 

200 IF X1>PI THEN Xi=X1-PI 

210 IF X1>PI/2 THEN X1=PI-X 

220 X2=X1XX1 

230 Y=XOXX1XY 

239 REM - COEFICIENTES DEL DESARROLLO DE LA SERIE SEN(X) - 


240 C(1)=1 

250 C(2)=-.1666666666671334 

260 C(3)= .00833333333809067? 

270 C(4)=-,.000198412715551283 
280 C(5)= .0000027557589750762 
290 C(6)=-.00000002507059876207 
300 C(7?)= .0000000001é4105986683 


309 REM - SUMACION DE LOS TERMINOS DE LA SERIE - 
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310 N=2 

320 Y=0- 

330 FOR J=N TO 1 STEP -1 

340 Y=YXX2+C(J) 

350 NEXT J 

360 Y=XOXX1XY 

370 PRINT X,Y,SIN(X),Y-SIN(X) 
380 NEXT X 

390 END 


ejercicios resueltos: 


Liaprésias la función y = sen x mediante desarrollo en serie entre 
O y 27, con un incremento de 0,1. 
SOLUCION : 


Xx serie: SIN(X) func: SIN(X) DIFERENCIA 
FOO 


0.0 . 0000000000 . 0000000000 (o) 
.1 +. OPP8334166 . 0998334166 -1.8189894E-12 
.2 . 1986693308 «1936693308 -3.6379788E-12 
.3 . 2255202067? . 22955202067 -5.45679682E-12 
.9 .3894183423 .38794183423 -2.910383E-11 
.5 . 47974255386 . 4794255386 -7.2759576E-12 
.6 .56469424734 .5646924734 2.0918378E-11 
.? .6442176872 .6442176272 4.456524E-11 
.8 . 7173560909 .7173560909 -2.7284841E-11 
.?2 . 7833269096 . 7833269096 2.2737368E-11 
1.0 .2414709848 .2414709849 -=5.9117156E-11 
1.1 .87?12073601 . 3912073602 -6.5483619E-11 
1.2 . 2320390860 . 23203790860 5.638867Z2E-11 
1.3 «2635581855 .?635581854 1.2278178E-10 
1.4 .2854497301 .92854497299 1.3278623E-10 
1.5 .99749498683 .9974949867 1.4370016E-10 
1.6 . 9993736033 7995736031 2.582965E-10 
La 2 97916648104 .?9166438102 2.1282176E-10 
1.8 .92732476307 .7738476308 -6.2735134E-11 
1.9 . 2463000874 . 2463000873 1.5916157E-10 
2.0 . 2092974265 .90929742649 6.9121597E-11 
2.1 .8632093662 .S632093661 1. 1550583E-10 
2.2 . 28084964032 .38084964032 * 4.638423E-11 
2.3 . 7457052114 +. 7457052112 1.9736035E-10 
2.4 . 6754631797 .6754631796 4.5474735E-11 
2.5 .59284721431 .5984721428 2.6557245E-10 
2.6 «5155013706 «5155013706 4.638423E-11 
2.7 . 4273798789 . 4273798786 2.5374902E-10 
2.8 .3349881487 . 3349881486 1.1004856E-10 
2.9 2392493276 . 2392493273 2.8830982E-10 
3.0 . 1411200063 «1411200062 1.0822987E-10 
3.1 .0415806606 .0415806607 -7.0031092E-11 
3.2 -.0583741454 -.0583741455 1.1732482E-10 
3.3 -.1577456961 -. 1577456961 -7.0031092E-11 
3.4 -.2555411041 -.2555411042 1.0913936E-10 
3.5 -.3507832298 -.3507832297 -4.0017767E-11 
3.6 -.44252044954 -. 4425204455 1.0913936E-10 
3.7 -.5298361429 -.5298361429 -1.8189894E-11 
3.8 -.61185738929 -.6118578930 1. 1550583E-10 
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3.9 -.6877661611 -.6877661610 -9.8225428E-11 
4.0 -.7568024971 -.7568024971 2.2737368E-11 
4.1 -.8182771127 -.8182771126 -4.5474735E-12 
4.2 -.8715757738 -.8715757739 1.0822987E-10 
4.3 -.9161659379 -.9161659379 -5.0022209E-11 
4.4 -.?2516020748 -.9516020748 -5.4569682E-12 
9.5 -=.97?75301183 -.9775301182 -1.1186785E-10 
4.6 -. 9936910041 -.9936910040 -1.1186785E-10 
4.2 - 2999232580 =.9999232577 -2.8921932E-10 
4.8 -.7?961646087 -.9961646086 -1.1368684E-10 
4.9 -.9824526120 -.9824526120 -7.1850081E-11 
5.0 -.9589242737 -.9589242735 -2.0190782E-10 
5.1 -.9258146809 -.9258146809 -1.546141E-11 

5.2 -.8834546540 -.8834546538 -1.8644641E-10 
5.3 -.8322674401 -.8322674400 -9.7315933E-11 
5.4 2.7727644851 -.7727644849 -2.1645974E-10 
5.5 -=.7055403228 -.7055403226 -1.2187229E-10 
5.6 -=.6312666347 -=.6312666345 -2.6830094E-10 
5.7? - 5506855391 -.5506855390 -1.2551027E-10 
5.8 -. 4646021757 -. 4646021753 -3.610694E-10 

5.9 -. 3738766608 -.3738766607 -1.5188562E-10 
6.0 -.2794154939 -.2794154936 -3.8107828E-10 
6.1 -. 1821624998 -. 1821624996 -2.1464075E-10 
6.2 -,0830893982 -.0830893978 -3.8835424E-10 


APROXIMACION DE LA FUNCION Y = COS (X) 


introducción: 


Este programa permite obtener una aproximación de la función: 


y = cos x mediante desarrollo en serie. Al mismo tiempo calcula el valor 


del cos x, con arreglo a la función de librería COS(X) que posee el micro 


ordenador, por último calcula la diferencia entre las dos funciones. 


listado del programa: 


10 
20 

30 

40 

50 

60 

70 

100 
110 
120 
AX 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
239 
240 
250 


REM FOROROIAOIOOROOOOOOOIOOIOIOAIOORAIAIRIORRRRRRROORAIAAIAIAIIAIIIIIIIIIAAA: 
REM 


REM APROXIMACION DE LA FUNCION 
REM 

REM Y=C0S (Xx) POR DESARROLLO EN SERIE 
REM 


REM IOORIOROOIIOIOIOIOIO OOOO 
PRINT 

PRINT ” pS serie: COS(X) func: COS(X) DIFERENCIA" 
PRINT MRRIBRROOOIA ORIO 
FANAAAA 

PRINT 

PI= 3.141592653589793 

xXO=1 

FOR X=0 TO PI STEP .1 

X1=ABS(X) 

X1=X1-2X*PIXINT(X1/(2XxPI)) 

IF X1>PI THEN XO=-1 

IF X1>PI THEN X1=X1-PI 


IF X1>PFI/2 THEN XO=-1 

IF X1>PI/2 THEN X1=PI-Xx1 
X2=X1XX1 

REM - COEFICIENTES DEL DESARROLLO DE LA SERIE COS(X) - 
Cc(1)=1 
C(2)=-.4999999999982 
C(3)= .094166666664651 
C(4)=-.001338888805755 
Cí5)= .000024801428034 
C(£)=-.0000002754213324 
2(?)= ,00000000201894905 


REM - SUMACION DE LOS TERMINOS DE LA SERIE - 
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310 N=" 

320 1=0 

230 FOR J=N TO 1 STEP -1 

3940 Y=YXX2+C(J) 

350 MEXT J 

360 Y=Xx0%X%Y 

370 PRINT X,Y,COS(X),Y-COS(X) 
380 MEXT x 

390 END 


ejercicios resueltos: 


lane la función y = cos x mediante desarrollo en serie, entre 
Oy TT, con un incremento igual a 0,1. 
SOLUCION: 


Xx serie: COS(Xx func:i COS(x) DIFERENCIA 
ORRDODAIOIOOOO IICA: 


0.0 1.000209000 1.000000000 4.7293724E-11 
.1 .273009165 . 293004165 1.0004442E-10 
.2 9200665572 . 730066578 3.5470293E-11 
.3 . 25333648289 +. 255336489 1.ó6370905E-11 
4 .?21060994 . 221060794 3.6379788E-11 
¿5 «377502562 . 2773825962 -9.094947E-13 
6 ¿225335615 +«S25335615 2.6375346E-11 
.? . 76489218287 .7ó64842187 5.3ó660187E-11 
.2 676706707 . 6796706709 4.0017767E-11 
.? 621609968 .6216097683 2.94556357E-11 

1,0 . 540302306 - 3540302306 2.7224841E-12 

1.1 . 453596121 .ISIDPÓL2ZL -=1.2732926E-11 

1.2 362357754 362357754 1.231293924E-11 

1.3 . 267498228 . 267498225 9.094947E-12 

1.4 169967142 .169967143 26.8212103E-11 

1.5 .020737201 .070737201 -7.6397555E-11 

1.6 = .029199523 -= .029199523 1.5552359E-10 

1.2 -= ¿128244495 - ¿122844495 3.1650416E-10 

1.2 -= .227202095 = .227202095 3.4583007E-11 

1.9 323287568 -= ¿323289568 2.5193003E-10 

2.0 -= ¿416146837 = «4101462837 5.8207661E-11 

2.1 -= .504846105 - .504846106 2.1373125E-10 

2.2 -= ¿5228501112 = .Sese5oliie 7.548806E-11 
3 -= 666276022 = 666276022 1.72326096E-10 

9 = 237393716 -= .2?37393716 2.0008883E-11 

2.5 - ,.S8011473ó616 -= .801143617 1.92354136E-10 

2.6 . 2568828754 - 25628289754 1.0732037E-10 

2.7? -= .29040721493 -= .2034072143 4.7293724E-11 

2.8 - ¿2422223491 - .9242222341 5.0022209E-11 

2.9 -= .?270958166 -= .7?70958166 8.2764018E-11 

3,0 -= .22829924997 -= .929992497 -1.0459189E-10 

3.1 -= .999135150 = .?299135150 4.7293724E-11 


APROXIMACION DE LA FUNCION Y = LN (X) 


introducción: 


Este programa permite obtener una aproximación de la función: 
y = Ln x, mediante el desarrollo en serie. Al mismo tiempo calcula el valor 
del neperiano, con arreglo a la función de librería LOG(X) que poseen 
los microordenadores, por último calcula la diferencia entre las dos fun- 


ciones. 


listado del programa: 


LO EM ROO OOOO O OOOO OR EMMA RARA RA ARA ER 
20 REM 


TO REM APROXIMACION DE LA FUNCION 

30 REM 

50 REM Y=LN(%) PGR DESARROLLO EN SERTE 
60 REM 


PO REM IICA IO OOOO AO AR RE ARA 
100 PRINT 

110 PRINT ” pS seriez LN (x) func: LN (%) DIFERENCIA" 
120 PRINTS AAA ARMAR 
ANNAN 

130 PRINT 

140 E= 2. 7182818228459043 

150 FOR X=0.5 TO 10 STEP .5 

160 Xx0=1 

170 Xi=-1 

180 Xx2=X 

190 IF X>=1 THEN GOTO 22 

200 Xx=1/X%X 

z10 xXO=-1 

220 X=EXX 

230 X1i=X1+1 

240 X=X/E 

250 IF X>E THEN GOTO 230 

260 Xx4=(X-1.6487212707?)/(Xx+1.6487212707) 

270 X5=X4XX4 

279 REM - COEFICIENTES DEL DESARROLLO DE LA SERIE Y=LN (xXx) - 

280 C(1)=2 

290 C(2)=.66666672443 

300 C(3)=.3999895288 

310 C(4)=.286436047? 


320 
330 
340 
350 
360 
370 
3729 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


ejercicios resueltos: 


entre 0.5 


Cc(5)=.197959107 
C(6)=.6283533 
Cc(7?)=-4.54692 
Cc(8)=28.117 
C(9)=-86.42 
Cc(110)=106.1 
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REM - SUMACION DE LOS TERMINOS DE LA SERIE - 


N=10 

Y=0 

FOR J=N TO 1 STEP -1 
Y=YXX5+C(J) 

NEXT J 

Y=X0X (1XX4+X1+.5) 

x=xX2 

PRINT X,Y,LOG(X),Y-LOG (2%) 
NEXT *X 

END 


¡AE la función: 


SOLUCION: 


Xx serie: LN (X) 


1] 


-= .6931471831 
0. 000000000 

, 4054ó65108 

6931497131 

.P16290732 
1.092612287? 
1.25276296828 
1.3862943ó1 
1.504077397 
1.609437912 
1.704748092 
1.>91759469 

.37180217?7 
1.945910149 
2.014903020 
2.079441541 
2.140066163 
2.197224577 
2.251291798 
2.302585093 


nodmxomxodNomdso 


Nono morno 


00:00003743/00005b4addsNN-- 


e 
o 


y 10, con un incremento 


y = LInx 


igual a .5. 


S funci LN (X 
FAO OOOO OOOO III NAAA AAA AAA ARA 


693147181 
0.000000000 
. 405465103 
.693147181 
216279073 
1.0986122329 
1.252762969 
1.386294361 
1. 504077392 
1.609437912 
1.704743092 
1.791759469 
1.871802177 
1.9459101499 
2.014903021 
2.079441542 
2.140066163 
2.197224577 
2.251291798 
2.302585093 


mediante desarrollo en serie, 


DIFERENCIA 


-1.7230399E-11 
1.0913936E-11 


-1.546191E-11 

-9.276846E-11 

-=6.002665E-11 
le) 


-2.3283064E-10 
-2.3283064E-10 
-2.3283064E-10 
-2.3283064E-10 
-2.3283069E-10 
-2.3283069E-10 
-2.3283064E-10 
-2.3283064E-10 
-2.32283064E-10 
-2.3283064E-10 
-2.3283064E-10 
-2.3283064E-10 


o 


-2.3283064E-10 
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APROXIMACION DE LA FUNCION Y = EXP (X) 


introducción: 


Este programa permite obtener una aproximación de la función: 
y = ex, mediante desarrollo en serie. Al mismo tiempo calcula el valor 
de la función exponencial, con arreglo a la función de librería EXP(X) 
que poseen los microordenadores, por último calcula la diferencia entre 
las dos funciones. 


listado del programa: 


10 REM IRRRRRROOOOOOROORORROIORORORIORRIOOOOIOOOIOOOOOOIOIOOOOOIAOR IOOR ER REA ER AER 
20 REM 


30 REM APROXIMACION DE LA FUNCION 

40 RES 

50 REM Y=EXP (X) POR DESARROLLO EN SERIE 
60 REM 


PO REM RARA III OOOO RARA E KARA 
100 PRINT 

110 PRINT " Xx serie: EXP (xx) tunci EXF(x) DIFERENCIA” 
120 PRINTER IO AAA 
ANNAN 

130 PRINT 

140 FOR X=-5S TOS STEP .5 

150 XO=1 

160 X1=X 

170 IF Xx*0 THEN xXC=-1 

130 X=AES(X) 

190 X3=INT(X) 

200 X=X-X3 

209 REM - COEFICIENTES DEL DESARROLLO DE Y=EXP (Xx) - 

z10 C(1)=1 

220 C(2)=.99999999668 

230 C(3)=.49999995173 

240 C(4)=.16666704247 

250 C(5)=.04166685027? 

260 C(6)=.00832672635 

270 C(7)=.00140836136 

280 C(8)=.00017358267? 

290 C(9)=.00003931683 

300 X2=X 
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309 REM - SUMACION DE LOS TERMINOS DE LA SERIE - 
310 N=9 

320 Y=0 

330 FOR J=N TO 1 STEP -1 

390 Y=YXX2+C:(J) 

350 NEXT J 

360 FOR K=1 TO X3 

370 E=2.718281828459045 

380 Y=YXE 

390 NEXT K 

400 IF XO<%0 THEN Y=1/Y 

410 X=X1 

420 PRINT X,Y, EXP(X), Y-EXP(X) 
430 NEXT Xx 

440 END 


ejercicios resueltos: 


¡A la función y = ex mediante desarrollo en serie, entre 
-5 y 5, con un incremento de O.5. 
SOLUCION: 


Xx serie: EXP(X) func: EXF(X DIFERENCIA 
A o A tr O trato RI 


-5.0 . 00672737 . 0067379 -2.7224891E-12 
-4,5 .O111090 .O111090 1.281279894E-12 
-94,0 «01583156 0183156 -5.4569682E-12 
-3.5 +0301974 - 0301974 7.2739576E-12 
-3,0 .0497871 .0497871 -9.094947E-12 
-2.5 . 0820850 . 0820850 2.7284841E-11 
-2.0 «1353353 «13353353 -2.0918378E-11 
-1.5 «2231302 «2231302 8.0945028E-11 
=4 50 .3678794 .36728794 26.2755134E-11 
= 000 6065307 .6065307 1.70985E-10 
0.0 1.0000000 1.0000000 4.0017767E-11 
.5 1.6487213 1.6487213 -4,6566129E-10 
1.0 2.7182218 2.7182818 4.6566129E-10 
1.5 4.4816891 4.481682871 -1.6293145E-09 
2.0 7?.3890561 7.3890561 1.1641532E-09 
2.5 12. 1824993 12.1824940 -3.9581209E-09 
3.0 20.0255369 20.0855369 3.7252903E-09 
3.5 33.11539520 33.1154520 -7.6834112E-09 
4.0 54.5981501 54.59321500 1.5832484E-08 
9.5 90.0171313 90.0171313 -9.0803951E-09 
5.0 148.4131592 148.4131591 6.3562766E-08 


REGLA DE SIMPSON (FUNCION CONOCIDA) 


introducción: 


Este programa permite calcular integrales definidas mediante la re- 
gla de Simpson. Este procedimiento de cálculo númerico obtiene una aproxi- 
mación al verdadero valor de la integral. Para que la aproximación sea me- 
jor basta con hacer más fina la partición del intervalo, es decir, aumen- 
tar el número de intervalos (siempre pares). 

La función a integrar se introduce en la linea 170 del siguiente mo 
do: 170 DEF FN F(X) = ...... 


listado del programa: 


10 REM IRRRRORRRORORROOOOROOORROROROROROOOROROROONOOOOROONOOROORO OOOO OOO EA ERAN 
20 REM 


30 REM ENTE SRA STIDON NUMERICA 
40 REM 

50 REM REGLA DE SIMPSON 

60 REM 


70 REM IRRADIA OIEA AER MAAAAARAR 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 
120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = 2... ...” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR”; 
160 INPUT A,B 

170 DEF FN F(X)= 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 

190 INPUT N 

200 IF N/2%>INT(N/2) GOTO 200 

210 H=(E-A)/(2%N) 

220 N1=2XN-1 

230 N2=2X* (N-1) 

240 SI=0 

250 SP=0 

259 REM - SUMA DE LOS PUNTOS IMPARES - 

260 FOR J=1 TO Ni STEP 2 

270 X=A+HXJ 

280 SI=SI4+FNF (X) 
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290 NEXT J 

299 REM - SUMA DE LOS PUNTOS PARES - 
300 FOR J=2 TO N2 STEP 2 

310 X=A+HXJ 

320 SP=SP+FNF (X) 

330 NEXT J 

339 REM - SALIDA DEL RESULTADO - 

340 PRINT 

350 PRINT 

360 IS=HX(FNF (A) +4%SI+2%SP+FNF(B))/3 
370 PRINT "LA INTEGRAL PEDIDA ES ="518S;5 


380 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
390 END 


ejercicios resueltos: 


1.2 ax 
6 1l+x 


SOLUCION: 


1 e Calcular 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(Xx) = 
A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) =1/(1+X) 

INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1.2 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 10 


LA INTEGRAL PEDIDA ES = .7282845777? (MEDIANTE LA REGLA DE SIMPSON) 


e ATT el valor de 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 

DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) = 1/SQR(1+X, 

INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 3 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 50 


LA INTEGRAL PEDIDA ES = 2 (MEDIANTE LA REGLA DE SIMPSON) 


3. Calcular el valor de 


SOLUCION 


146 INTEGRACION NUMERICA 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 


DEL SIGUIENTE MODO: 170 DEF FN F(X) = ..o.o.... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(Xx) = X/SQR(XXX-15) 

INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? 4 3 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 30 


LA INTEGRAL PEDIDA ES = 6.000277 (MEDIANTE LA REGLA DE SIMPSON) 


4 o x? dx 
eCalcular el valor de 


=.5 añ + 1 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = 
A CINTINUACION PULSAR <CONT> 

170 DEF FN F(X) = »A9T/(XXX+X+1) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR?-.5 0 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? SO 


LA INTEGRAL PEDIDA ES =-.020400212 (MEDIANTE LA REGLA DE SIMPSON) 


REGLA DE SIMPSON (FUNCION DESCONOCIDA) 


introducción: 


Este programa sirve para calcular el valor aproximado de una inte- 
gral de una función desconocida, sabiendo el valor que toma la función en 
cada uno de los puntos de la partición del intervalo. El cálculo se reali 


za mediante la regla de integración numérica de Simpson. 


listado del programa: 


10 REM RRRRRRORRORAROOORRORORARARRORORDORDORORDORAREOROROOROORDARAROORORIOIOIRRIORCIOOOOIOIAAAA 
20 REM 


ZO REM INTEGRACION NUMERICA 

40 REM 

50 REM REGLA DE SIMPSON (FUNCION DESCONOCIDA) 
60 REM 


PO REM RR IOIOIOIIIIIIII IIIIIRIIO NO OIIAII III IIIIRI III IIIIANIAAAAA: 
110 PRINT "INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y SUPERIOR"; 
120 INPUT A,B 

130 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)";5 

140 INPUT mM 

150 N=M/2 

160 PRINT "VALORES DE LA FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR"; 
170 INPUT Yi, Y2 

180 H=(E-A)/(2XN) 

190 N1=2%N-1 

200 N2=2X (N-1) 

210 SI=0 

220 SP=0 

227? REM - SUMA DE LOS PUNTOS IMPARES - 

230 FOR J=1 TO Ni STEF 2 

240 PRINT "VALOR DE F(X) PARA X = "¡A+HXJ; 

250 INPUT Y 

260 SI=SI+Y 

270 NEXT J 

279 REM - SUMA DE LOS PUNTOS PARES - 

230 FOR J=2 TO N2 STEP 2 

290 PRINT "VALOR DE F(X) PARA X = "¡A+HXJ; 

300 INPUT Y 

310 SP=SP+Y 

320 NEXT J 
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329 REM -SALIDA DEL RESULTADO - 


330 PRINT 

340 PRINT 

350 IS=HX(Y1+9XS1I+2XSP+Y2)/3 

360 PRINT "LA INTEGRAL PEDIDA ES ="318S3; 
370 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
380 END 


ejercicios resueltos: 


l.naziar la integral de una función desconocida entre 1 y 3, sabiendo 


los siguientes valores de x y de f(x). 


SOLUCION 


INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y SUPERIOR? 1 3 
INTRODLUIZCA EL NUMERO DE INTERVALOS (PARES)? S 

VALORES DE LA FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR? 1.2 2.9 
VALOR DE F(X) PARA X= 1.25 ? 1.6 


VALOR DE F(X) PARA X= 1.75 ? 1.92 
VALOR DE F(X) PARA X= 2.25 7? 2.5 
VALOR DE F(X) PARA X= 2.75 ? 2.8 
VALOR DE F(X) PARA X= 1.5 2 1.2 
VALOR DE F(X) PARA X= 22? 2 

VALOR DE F(X) PARA X= 2.5 ? 2.6 


LA INTEGRAL PEDIDA ES = 39.325 (MEDIANTE LA REGLA DE <IMFSON) 


Za Hallar la integral de una función desconocida entre 4 y 5.5, sabien 


do los siguientes valores de x y de f(x). 


SOLUCION: 


INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y SUPERIOR? 4 5.5 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 6 

VALORES DE LA FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR? 1 1 
VALOR DE F(X) PARA X= 4,25 7? 1.3 


< 
'" 


4.75 ? 1.7 
5.25? 1.3 
.5 .5 
? 


VALOR DE F(X) PARA 
VALOR DE F(X) PARA 
VALOR DE F(X) FARA 
VALOR DE F(X) PARA 


xXx > 


x 
'" 


4 2d 
Ss 1.5 


x 
! 


LA INTEGRAL PEDIDA Es 
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E, AT la integral de una función 


desconocida entre 1 y 1.3 sabiendo los 


valores de x y de f(x) siguientes: 


SOLUCION 


INTRODUZCA LOS LIMITES DEL INTERVALO: INFERIOR Y 


INTRODLIZCA EL 
VALORES DE LA 


VALOR 
VALOR 
VALOR 
VALOR 
VALOR 


DE 
DE 
DE 
DE 
DE 


F(x) 
Fx) 
F(X) 
FX 

F(Xx) 


NUMERO DE INTERVALOS (PARES)? 6 


FUNCION EN LOS EXTREMOS INFERIOR Y SUPERIOR? 1 


PARA 
PARA 
PARA 
PARA 
PARA 


LA INTEGRAL PEDIDA 


Xx 


x 


m 
16) 


1.05 ? 1.0247 
1.15 ? 1.07238 
1.25 ? 1.11803 
1.1 7? 1.04881 
1.2 ? 1.09544 


SUPERIOR? 1 


1.02470 
1.04881 


1.07238 
1.09544 
1.11803 
1.14017 


1.3 


1.14017 


.32148517 (MEDIANTE LA REGLA DE SIMPSON) 
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REGLA DEL TRAPECIO 


introducción: 


Este programa permite calcular integrales definidas mediante la re- 
gla de los trapecios. Este procedimiento de cálculo numérico, obtiene una 
aproximación al verdadero valor de la integral. Cuanto más fina sea la par 
tición del intervalo, mejor será la aproximación. Para hacer más fina la 
partición del intervalo basta con aumentar el número de intervalos en el 
que subdividimos el intervalo inicial. 

La función a integrar se define en la linea 170 del siguiente modo: 

170 DEF FN F(X) = ........ 


listado del programa: 


10 REM IRRRRERROOODOOOEODODORDOOOOOOOOOAEX RARA AA RARAR RR RARA MR KA RNA 
20 REM 


30 REM INTEGRACION NUMERICA 
40 REM 

50 REM REGLA DE L0=5 TRAPECIOS 
60 REM 


PO REM IRROIORIOOAOIOOOOOOOOOOO OOOO OOOO AAA 
100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 

120 FRINT "DEL SIGUIENTE MODC: 170 DEF FN F(X) = ¿ono .o..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR”; 
160 INPUT A,B 

170 DEF FN F(X)= 

1850 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS”; 

190 INPUT N 

200 S=0 

210 H=(B-A)/N 

220 N1=N-1 

230 FOR J=1 TO N1 

240 S=S+FN F(A+JXH) 

250 NEXT J 

259 REM - SALIDA DEL RESULTADO - 

260 PRINT 
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270 
280 
290 
300 
310 


PRINT 
IT=HX(S+(FN F(A)+FN F(B))/2) 
PRINT "LA INTEGRAL PEDIDA ES =";17T; 


PRINT "(MEDIANTE LA REGLA DEL TRAPECIO)" 
END 


ejercicios resueltos: 


Lina el valor de la integral: sos 12 LE dx 
(o) x +1 

SOLUCION: 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = COS(X-1)/(X"2+1) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1 
INTRODUZCA EL NUMERO DE INTERVALOS ? 100 
LA INTEGRAL PEDIDA ES = .63975904 (MEDIANTE LA REGLA DEL TRAPECIO) 

2 1 

e Calcular el valor de la integral: arc sen x dx 

SOLUCION: e 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = ASN(X) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1 
INTRODUZCA EL NUMERO DE INTERVALOS ? 60 
LA INTEGRAL PEDIDA ES = .57140586 (MEDIANTE LA REGLA DEL TRAPECIO) 


3 
3. Calcular el valor de la integral: , 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) = X*3+3%X"2+LOG(X) 


INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? 1 


INTRODUZCA EL NUMERO DE INTERVALOS ? 100 


(xXx + 32? + Ln x )Jdx 


152 INTEGRACION NUMERICA 


LA INTEGRAL PEDIDA ES = 47.297015 (MEDIANTE LA REGLA DEL TRAPECIC) 


l 


4. Calcular el valor de la integral: Ln (sen x) dx 


.3 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(Xx) = 
A CONTINUACION PULSAR <¿CONT: 

170 DEF FN F(x) = LOG(SIN(:%)) 
INTRODUZCA LOS LIMITES DE INTEGRACICN: INFERIOR, SUPER 
TNTRODUZCA EL NUMERO DE INTERVALOS 7 100 


1) 
£ 

pa] 
1] 


LA INTEGRAL FEDIDA ES > 


(MEDIANTE LA REGLA Di. TRÁrcuio:, 


Ln (sen x) 


AREA ENCERRADA POR UNA CURVA EN CARTESIANAS 


introducción: 


Este programa permite calcular el area encerrada por una curva de 
la forma y = f(x), el eje x, y las rectas X = a, Xx = b. El cálculo del area 
se realiza por dos procedimientos: regla de Simpson y regla de los trape- 
cios. 
La función a integrar se define en la linea 170 del siguiente modo: 
170 DEF FN F(X) = ......... 


listado del programa: 


10 REM ISRRRRRIRIRIRIRIRIOOOOIRIRIRIIOIIIOIOOOIIIIIOIOOIOIRIRIRIOIOOIIOIOIRIIOOOOIOORIRRROOIIOIA 
20 REM 

30 REM AREA ENCERRADA POR UNA CURVA 

40 REM 

50 REM DADA EN F.CARTESIANA Y=F (X) 

60 REM : 

70 REM METODOS: SIMPSON Y TRAPECIOS 

80 REM 

90 REM OIR: 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 


120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ..o.....” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR"; 
160 INPUT A,B 

170 DEF FN F(X)= 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"5 
190 INPUT N 

200 IF N/2%>INT(N/2) GOTO 200 

210 H=(B-A)/(2%N) 

220 Ni=2%*N-1 

230 N2=2*(N-1) 

240 SI=0 

250 SP=0 

259 REM - SUMA DE LOS PUNTOS IMPARES - 

260 FOR J=1 TO N1 STEP 2 

270 X=A+H*J 


154 INTEGRACION NUMERICA 


280 SI=SI4+FNF (X) 

290 NEXT J 

299 REM - SUMA DE LOS PUNTOS PARES - 
300 FOR J=2 TO N2 STEP 2 

310 X=A+HXJ 

320 SP=SP+FNF (X) 


330 NEXT J 

339 REM - SALIDA DE RESULTADOS - 

340 PRINT 

350 PRINT 

360 IS=HX(FNF (A) +4XSI+2X%SP+FNF (B))/3 

370 PRINT "LA INTEGRAL PEDIDA ES =";1S; 
380 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
390 PRINT 

400 IT=HX(SI+SP+(FNF(A)+FNF(B))/2) 

410 PRINT "LA INTEGRAL PEDIDA ES ="317T; 
420 PRINT "(MEDIANTE LA REGLA DE LOS TRAFECIOS)" 
430 END 


ejercicios resueltos: 


lo nazzar el area encerrada por la curva f(x) = 1 z E el eje x y 
las rectas: x= 0 y x= 1.2. 
SOLUCION: 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 
A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) = 1/(1+X) 
INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 1.2 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA ES 


.78845736 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


.78847224 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


2 eniiar el area encerrada por la curva f(x) = z , el eje x 
y las rectas: x=0 y x= 3. Md, e dE 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 120 DEF FN E(XI o. .cocuós 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) = 1/SQR(1+X) 


INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? O 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


15] 
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LA INTEGRAL PEDIDA ES 


2 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


2.0000228 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


3. Hallar el area del recinto encerrado por la curva y = FE 
xé- 
el eje x, y las rectas: x = 4 y x= 8. 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(x) = 
A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) = X/SQR(X*X-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION: INFERIOR, SUPERIOR? 4 1] 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


LA INTEGRAL PEDIDA ES 


6.000003 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


6.0004978 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


AREA ENCERRADA POR UNA CURVA EN POLARES 


introducción: 


Este programa permite calcular el area encerrada por una curva dada 
en coordenadas polares de la forma: r = r(w) y las semirrectas w = w Y 
W= wW. El cálculo del area se realiza por dos procedimientos: regla de 
Simpson y regla de los trapecios. 
La función a integrar se define en la linea 170 del siguiente modo: 
170 DEF FN R(W) = ...... 


listado del programa: 


10 REM IRRSRSOROOIRIRIOOIOIOOIOIORIOIOIOIOOIOIOIIOIIOIOIOIOIOOIOOIOOOIOIOOIOOOOOIOIOOOIOIOIOOOOA R 
20 REM 


30 REM AREA ENCERRADA POR UNA CURVA 
40 REM 

50 REM DADA EN F. POLAR R=R (W) 

60 REM 

70 REM METODOS: SIMPSON Y TRAPECIOS 

80 REM 


A EEE 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 


120 PRINT "DEL SIGUIENTE MODO: 170 DEF FM RW) = ...oco.o..” 
130 PRINT "A CONTINUACIOM PULSAR <CONT>" 
140 STOP 


150 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)": 
160 INPUT W1,W2 

170 DEF FN RW) = ....o.o..” 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 
190 INPUT N $ 

200 IF N/2<>INT(N/2) GOTO 200 

210 H=(W2-W1)/(Z2X*N) 

220 N1=2X*N-1 

230 M2=2X*(M-1) 

240 SI=0 

250 SP=0 

259 REM - SUMA DE LOS PUNTOS IMPARES - 

260 FOR J=1 TO N1 STEP 2 

270 W=W1+HX*J 
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280 SI=SI+(FNR(W)%2)/2 

290 NEXT J : 

299 REM - SUMA DE LOS PUNTOS PARES - 

300 FOR J=2 TO N2 STEP 2 

310 W=W1+HXJ 

320 SP=SP+ (FNR(W)2)/2 

330 NEXT J 

339 REM - SALIDA DE RESULTADOS - 

340 PRINT 

350 PRINT 

360 IS=HX(FNR (W1)+9%SI+2XSP+FNR(W2))/3 
370 PRINT "LA INTEGRAL PEDIDA ES =";318; 
380 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
320 PRINT 

400 IT=HX(SI+SP+ (FNR(W1)+FNR(W2))/2) 

410 PRINT "LA INTEGRAL PEDIDA ES ="317; 
420 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
430 END 


ejercicios resueltos: 


1. nazzar el área encerrada por la cardioide de ecuación: r = 1+cos w 
SOLUCION: 


El área pedida será igual al doble del área entre O y T. Por tanto 
calculemos esta última. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN R YW) = 
A CONTINUACION PULSAR <CONT> 

170 DEF FN R(W) = 1+C0S5(W) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)>” (o) 3.1415927 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA ES = 2.3561945 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 2.3561945 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 
El área encerrada será: 4.71238 


2. Hallar el área encerrada por la lemniscata de Bernouilli de ecua- 
ción: r?= 9 cos 2 wW 
SOLUCION: 


El área pedida será igual a 4 veces el area encerrada entre O y T/%4. 
Por tanto calculemos esta última. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN RW) = ....... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN R(W) = 3XSQR(COS(2XW)) 
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LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)7 O «7853981 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


LA INTEGRAL PEDIDA ES = 2.2467298 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES = 2.245062ó (MEDIANTE LA REGLA DE LOS TRAFPECIOS) 
El área encerrada será: 4(2.2467298)= 8.96.. 


3. Hallar el área encerrada por la rosa de tres pétalos de ecuación: 
r=2cos 3 w 
SOLUCION: 
El área pedida será igual a 6 veces el área encerrada entre O y Tr/6. 


Por tanto, calculemos esta última. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 

DEL SIGUIENTE MODO: 170 DEF FN RW) = ....... 

A CONTINUACION PULSAR <CONT> 

170 DEF FNR(W) =. 2XC0S(3X%W) 

LIMITES DE INTEGRACION: INFERIOR, SUEERIOR (EN RADIANES)? O ¿5235988 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA ES ¿523579878 (MEDIANTE LA REGLA DE SIMPSON) 


'" 


LA INTEGRAL PEDIDA ES ¿52359278 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


El área encerrada será: 6(.52359878)=3.12... 


AREA ENCERRADA POR UNA CURVA 
EN PARAMETRICAS 


introducción: 


Este programa permite calcular el area encerrada por una curva dada 
en forma paramétrica: x = x(t), y = y(t) y las semirrectas t= t, y 
t = t,: El cálculo del área se realiza por dos procedimientos : regla de 


Simpson y regla de los trapecios. 


En la linea 210 se define la función y = y(t) del siguiente modo: 
210 DEF FN Y(T) = ....... 

y en la linea 220 se define la derivada de la función x= x(t) del si- 
guiente modo: 220 DEF FN D(T) = ....... 


listado del programa: 


10 REM IORICOAICIOOIIIAIORIOOIIIIOOOIII III IIA: 
20 REM 

30 REM AREA ENCERRADA POR UNA CURVA 

40 REM 

50 REM DADA EN F. PARAMETRICA X=X(T)5 Y=Y (Y) 

60 REM y 

?0 REM METODOS : SIMPSON Eb TRAPECIOS 

80 REM 

20 REM FORO III 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210" 


120 PRINT "DEL SIGUIENTE MODO: 210 DEF FN Y(T) = .......” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220" 
160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(T) = ........"” 
170 PRINT "A CONTINUACION PULSAR <CONT>" 


-180 STOP 
120 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 
200 INPUT T1,T2 » 


210 DEF FN Y(T)= 

220 DEF FN D(T)= 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 
240 INPUT N 
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250 IF N/2<>INT(N/2) GOTO 250 
260 H=(T2-T1)/(2%N) 

270 Ni=2XN-1 

280 N2=2*(N-1) 

290 SI=0 

300 SP=0 

310 FOR J=1 TO Ni STEP 2 

320 T=T1+HX*J 

330 SI=SI+FNY(T)XFND(T) 

340 NEXT J 

350 FOR J=2 TO N2 STEP 2 

360 T=T1+HXJ 

370 SP=SP+FNY(T)XFND(T) 

380 NEXT J 

2389 REM - SALIDA DE RESULTADOS - 
390 PRINT 

400 PRINT 

410 Y1=FNY(T1)XFND(T1) 

420 Y2=FNY(TZ)XFND(T2) 

430 1S =HXk(Y1+4XSI+2XSP+Y2)/3 
440 PRINT "EL AREA PEDIDA ES = ";1S 3 "UNIDADES CUADRADAS" ; 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 


460 PRINT 

470 IT=HX(SI+SP+(Y1+Y2)/2) 

480 PRINT "EL AREA PEDIDA ES = "3IT 5 "UNIDADES CUADRADAS"; 
490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 

500 END 


ejercicios resueltos: 


Lutarzar el área encerrada por la curva: ( x(t) 
y (t) 


3 + cos t 


4 sent 


SOLUCION: 

El área pedida es 4 veces el area desde O a 1/2, y además como la función 
es negativa resulta: Area pedida = -4 Area desde O a Tr/2. 

Calculemos esta última: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO 210 DEF FN Y(T) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN Y(T) = 4XSINIT) 


DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(T) = ........ 


A CONTINUACION PULSAR <CONT> 
220 DEF FN D(T)=-SIN(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 1.57079 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


EL AREA PEDIDA ES -3.1415673 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES 


-3.1415673 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRAPE 
CIOS) ; 


El área encerrada por la curva será: 4rm. 
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2. Hallar el area encerrada por la elipse de ecuación: 5 e a == 
SOLUCION: 

El área pedida es en valor absoluto igual a 4 veces el área encerrada en 
el primer cuadrante, desde t=0 hasta t = 7/2. Calculemos esta cuarta 


parte. 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL. SIGUIENTE MODO: 210 DEF FN Y(T) = 


A CONTINUACION PULSAR <CONT> 
210 DEF FN Y(T) = 2*SINIT) 


DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(T) = 
A CONTINUACION PULSAR <CONT> 

220 DEF FN D(T) = -3XSIN(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 1.5707963 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 80 


EL AREA PEDIDA ES 


24.7123388 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES 
cios 


-4.7123888 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRAPE 
El área encerrada por la curva será: 4.(4.7123888)= 18.84.. 


3. Hallar el área encerrada por el arco de cicloide de ecuación: 
x(t) = t - sen t 
y(t) = 1 - cos t 
SOLUCION: 
Un arco completo de cicloide se describe al variar t desde t = O hasta 
t = 2 7. Por tanto el área será: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN Y(T) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN Y(T) = 1-COS(T) 


DEFINA LA DERIVADA DE X=X(T) RESPECTO DE T,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(T) = ........ 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(T) =1-COS(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 6.28318 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


EL AREA PEDIDA ES = 9.424778 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES 
cios) 


9.424778 UNIDADES CUADRÁDAS(MEDIANTE LA REGLA DE LOS TRAPE: 


LONGITUD DE UN ARCO DE CURVA DADA 
EN CARTESIANAS 


introducción: 


Este programa sirve para calcular la longitud de un arco de curva 
de la forma y = f(x) desde x = a hasta x= b. El cálculo de la longi- 
tud de la curva se realiza por dos procedimientos: regla de Simpson y re- 
gla de los trapecios. 

Para poder ejecutar el programa,es preciso definir la función en la 
linea 21o del siguiente modo: 210 DEF FN F(X) = ...... 

Y también, definir en la linea 220 la derivada de la función y = f(x) 
respecto de x, del siguiente modo: 

220 DEF FN D(X) = .....-+ 


listado del programa: 


10 REM III III III 
20 REM 


30 REM LONGITUD DE UN ARCO DE CURVA 
40 REM 

50 REM DADA EN F.CARTESIANA Y=F (X) 

60 REM 

70 REM METODOS: SIMPSON Ri TRAPECIOS 

80 REM 


EEES 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210" 

120 PRINT "DEL SIGUIENTE MODO: 210 DEF FN F(X) = j....oo.n.” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220" 

160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(X) = 
170 PRINT "A CONTINUACION PULSAR <CONT>" 

180 STOP 

190 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "5; 
200 INPUT A,B 
210 DEF FN F(X) 
220 DEF FN D(X) = 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)";5 
240 INPUT N 
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250 IF N/2<>INT(N/2) GOTO 250 

260 H=(B-A)/(2XN) 

270 N1=2XN-1 

280 N2=2*(N-1) 

290 SI=0 

300 SP=0 

209 REM - SUMA DE LOS PUNTOS IMPARES - 
310 FOR J=1 TO N1 STEP 2 

320 X=A+HX*J 

330 SI=SI+SQR(1+FN D(X)72) 

340 NEXT J 

2349 REM - SUMA DE LOS PUNTOS PARES - 

350 FOR J=2 TO N2 STEP 2 

360 X=A+HXJ 

370 SP=SP+SQR(1+FN D(X)*2) 

380 NEXT J 

389 REM - SALIDA DE RESULTADOS - 

390 PRINT 

400 PRINT 

410 Y1=SQR(1+FN'D(A)72) 

420 Y2=S0OR(1+FN D(B)72) 

430 IS=HX(Y1+4*XSI+2XSP+Y2)/3 

440 PRINT "LA INTEGRAL PEDIDA ES =";1S; 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
460 PRINT 

470 IT=H*(SI+SP+(Y1+Y2)/2) 

480 PRINT "LA INTEGRAL PEDIDA ES =";17T; 
490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
500 END E 


ejercicios resueltos: 


¡A la longitud de un arco de catenaria de ecuación: 


2 (0/3 e7X/3 


OLUCION: 


+ ) desde x= 0 hasta x = 3. 


n K 
Il 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = ¿.0.oo.o. 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(X) = 3X(EXP(X/3)+EXP (-X/3))/2 


DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = 


A CONTINUACION PULSAR <CONT> 


Y 
220 DEF FN D(X) = (EXP (X/3)-EXP (-X/3))/2 
| 
| | 
LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 3 | | X 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 
0 a 


LA INTEGRAL PEDIDA ES 3.5256036 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


3.5256495 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 
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q A la longitud de un arco de la curva de ecuación: y = Ln x 
entre x = 1 y x = 3. 


SOLUCION: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(X) = LOG(X) 


DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220 


DEL SIGUIENTE MODO: 220 DEF FN D(X) = .......o 
A CONTINUACION PULSAR <CONT> 
220 DEF FN D(X) = 1/%X 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? 1 3 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


LA INTEGRAL PEDIDA ES 


2.3019875 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 2.3020225 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


3. Hallar la longitud de un arco de la curva de ecuación: y = A 


entre x = -2 hasta x= 2. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(X) = EXP (X/2) 


DEFINA LA DERIVADA DE F(X) RESPECTO DE X EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = ....... 
A CONTINUACION PULSAR <CONT> 

220 DEF FN D(X) = EXP (X/2)*x.5 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ?-2 
INTRODUZCA EL NUMERO DE INTERVALOS (FARES)? 640 


15) 


LA INTEGRAL PEDIDA ES = 4.7670795 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


4.7671286 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


LONGITUD DE UN ARCO DE CURVA DADA EN POLARES 


introducción: 


Este programa sirve para calcular la longitud de un arco de curva 
dada en forma polar r = r(w), desde un valor particular de w = wz hasta 
W= w). El cálculo de la longitud se realiza por dos procedimientos: re- 
gla de Simpson y regla de los trapecios. 

Para poder ejecutar el programa, es preciso definir la función en 
la linea 210, del siguiente modo: 210 DEF FN R(W) = ..... 

A continuación, se ha de definir en la linea 220,l1a derivada de r(w) respec 
to de w, ael siguiente modo: 220 DEF FN D(W) = ..... 


listado del programa: 


MA EEES 
20 REM 

30 REM L:00.N 6 TT6OD DE UN ARCO DE CURVA 

40 REM 

50 REM DADA EN F. POLAR R=R (W) 

60 REM 

70 REM METODOS: SIMPSON Y TRAPECIOS 

20 REM 

90 REM IRRRRCRIOOOIOIORORIRIRRORROORRORIORROROORROIOROOROORRIOOIOIOOIOIOIOIOOIOOOIRIAAAA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210” 

120 PRINT "DEL SIGUIENTE MODO: 210 DEF FN R(W) = .....o..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 


140 STOP 

150 PRINT "DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220" 
160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(W) = .......” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

1280 STOP 


190 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)";5 
200 INPUT W1,w2 

210 DEF FN R(W)= 

220 DEF FN D(W)= 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 

240 INPUT N 

250 IF N/2<>INT(N/2) GOTO 250 
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260 H=(W2-W1)/(2%N) 

270 Ni=2XN-1 

280 N2=2X*(N-1) 

290 SI=0 

300 SP=0 

2309 REM - SUMA DE LOS PUNTOS IMPARES - 
310 FOR J=1 TO N1 STEP 2 

320 W=W1+HX*J 

330 SI=SI+SOR((FN R(W))*2+(FN D(W))*2) 
340 NEXT J S 
249 REM - SUMA DE LOS PUNTOS FARES - 
350 FOR J=2' TO N2 STEP 2 

360 W=W1+HXJ 

370 SP=SP+SOQR((FEN R(W))*2+(FN D(W))"2) 
380 NEXT J 

339 REM - SALIDA DE RESULTADOS - 

390 PRINT 

400 FRINT 

410 R1=SQR(FNR(W1)"2+FND(W1)72) 

420 R2=SQR (FNR (W2) "2+FND(W2)7Z2) 

430 IS=HX(R1+9XSI+2XSP+RZ)/3 


440 PRINT "LA INTEGRAL PEDIDA ES ="3193; 

450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 

460 PRINT 

470 IT=HX(SI+SP+(R14RZ)/2) 

480 PRINT "LA INTEGRAL FEDIDA ES ="317T; 

490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
500 END 


ejercicios resueltos: 


Luosnsias la longitud de la cardioide de ecuación: r = 3(1 - cos w) 
SOLUCION: 
La longitud pedida es el doble de la longitud entre O y T. Por tanto, cal 


cularemos esta última: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA z10 
DEL SIGUIENTE MODO: 210 DEF FN R (W) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN R(W) = 3X(1-COS(W)) 


DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220 

DEL SIGUIENTE MODO: 220 DEF FN D(W) = ....... 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(W) = XSIN(W) 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)? O 3.1915 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


LA INTEGRAL PEDIDA ES 11.922449 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 11.2922273 (MEDTANTE LA REGLA DE LOS TRAPECIOS) 


La longitud de la cardioide será: 24 unidades. 


Z Hallar la longitud de la rosa de tres pétalos de ecuación: 
r=2cCOos 3 w. 
SOLUCION: 
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La longitud pedida es 6 veces la longitud entre O y T/6. Por tanto,calcu 
laremos esta última: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN R (W) = 
A CONTINUACION PULSAR <CONT> 
210 DEF FN R(W) = 2*C0S(3XW) 


DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220 


DEL SIGUIENTE MODO: 220 DEF FN D(W) = ....... 

A CONTINUACION PULSAR <CONT> . 

220 DEF FN D(W) = -óX*XSIN(W) 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)? O . 7853982 


INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


LA INTEGRAL PEDIDA ES 


2.1515775 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


2.1515849 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


La longitud de la rosa será: 12.9 


E A la longitud de la lemniscata de Bernouilli de ecuación: 
p? = 9 cos 2 w. 
SOLUCION: 


La longitud pedida es 4 veces la longitud entre O y T/4. Por tanto, calcu 
laremos esta última: 


DEFINA LA FUNCION QUE DESEA CALCULAR SU LONGITUD EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN R (W) = ....... 

A CONTINUACION PULSAR <CONT> 

210 DEF FN R(W) = 3XSQR(COS(2XW) ) 


DEFINA LA DERIVADA DE R(W) RESPECTO DE W EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(W) = ....... 


A CONTINUACION PULSAR <CONT> 
220 DEF FN D(W) = -3XSIN(2%XW) /SQR(COS(2XW)) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR (EN RADIANES)”? O .78 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 200 


LA INTEGRAL PEDIDA ES 


3.6213924 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


3.6222104 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


La longitud de la lemniscata será: 14.484 


LONGITUD DE UN ARCO DE CURVA DADA 
EN PARAMETRICAS 


introducción: 


Este programa sirve para calcular la longitud de un arco de curva 
dad en forma paramftrica: x = x(t), y = y(t), desde t = t, hasta t = t, 
El cálculo de la longitud se realiza por dos procedimientos: regla de Simp 
son y regla de los trapecios. 

Para poder ejecutar el programa,es preciso definir en la linea 210 
la derivada de la función x = x(t) respecto de t, del siguiente modo: 

210 DEF FN F(T) = ...+.+... 

A continuación, se ha de definir en la linea 220, la derivada de la función 
y = y(t) respecto de t, del siguiente modo: 


220 DEF FN G(T) = ..+..+..+..-. 


listado del programa: 


10 REM IARIAAAAOIOOAOIOOOIOOOOARRRIOOARAORRORARRRRORRRRRROORRRORRRIORROOOOOROOOEA 
20 REM 


30 REM LONGITUD DE UN ARCO DE CURVA 
40 REM 

50 REM DADA E N F. PARAMETRICA X=X(T); Y=Y(T) 
60 REM 

70 REM METODOS: SIMPSON Y "TRAPECIOS 

80 REM . 


EEES 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA DERIVADA DE X(T) RESPECTO DE T EN LA LINEA 210” 

120 PRINT "DEL SIGUIENTE MODO: 210 DEF FN F(T) = ¿......” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "DEFINA LA DERIVADA DE Y(T) RESPECTO DE T EN LA LINEA 220" 

160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN G(T) = .......” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

180 STOP 

190 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 

200 INPUT T1,T2 
210 DEF FN F(T) 
220 DEF FN G(T) = 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)";5 
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240 INPUT N 

250 IF N/2<>INT(N/2) GOTO 250 

260 H=(T2-T1)/(2%N) 

270 Ni=2XN-1 

230 N2=2%* (N-1) 

290 SI=0 

300 SP=0 

309 REM - SUMA DE LOS PUNTOS IMPARES - 
310 FOR J=1 TO Ni STEP 2 

320 T=T1+HX*J 

330 SI=SI+SORIFN F(T)*2 + FN G(T)72) 
340 NEXT J 

349 REM - SUMA DE LOS PUNTOS PARES - 
350 FOR J=2 TO N2 STEP 2 

360 T=T1+HXJ 

370 SP=SP+SQRIFN F(T)*2 + FN G(T)72) 
330 NEXT J 

389 REM - SALIDA DE RESULTADOS - 

390 PRINT 

400 PRINT 

410 Y1=SQR(FN F(T1)%2+FN G(T1)72) 

420 Y2=SQR(FN F(T2)*2+FN G(T2)*2) 

430 IS=HX(Y1+9XSI+2XSP+Y2)/3 

440 PRINT "LA INTEGRAL PEDIDA ES ="318S;5 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 


460 PRINT 

470 IT=HX(SI+SP+ (Y1+Y2)/2) 

480 PRINT "LA INTEGRAL PEDIDA ES ="3I17T;5 

490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)” 
500 END 


ejercicios resueltos: 


Luis: la longitud de un arco de la curva: x= t”, y = t”, des- 
de t=0ati=d4. 
SOLUCION: 


DEFINA LA DERIVADA DE X(T) RESPECTO DE T EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(T) = 
A CONTINUACION PULSAR <¿CONT> 

210 DEF FN F(T) = 2%T 


DEFINA LA DERIVADA DE Y(T) RESPECTO DE T EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN G(T) = c...o.ooo. 

A CONTINUACION PULSAR <CONT> 

20 DEF FN G(T) =3XT"2 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 4 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 50 


LA INTEGRAL PEDIDA ES 


66.3828804 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 66.391738 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 
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Z. Hallar la longitud del arco completo descrito por una cicloide de 
ecuación: X= t-osent, y=1-cost 
SOLUCION: 


Un arco completo de cicloide se describe desde t = O hasta t = 21. Asi pues 
la longitud pedida será: 


DEFINA LA DERIVADA DE X(T) RESPECTO DE T EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(T) = ¿...o.. 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(T) = 1-COS(T) 


DEFINA LA DERIVADA DE Y(T) RESPECTO DE T EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN G(T) = ¿...o... 

A CONTINUACION PULSAR <CONT> 

220 DEF FN G(T) = SIN(T) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 6.28 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


LA INTEGRAL PEDIDA ES 72.2272927249 (MEDIANTE LA REGLA DE SIMFSUN) 


LA INTEGRAL PEDIDA ES 7.929953285 (MEDIANTE LA REGLA DE LOS TRAFECIOS) 


de La posición de un punto en un instante viene dada por las siguientes 
ecuaciones: x= es, y = 5 (6 t + 9,372 


Hallar el espacio recorrido por el punto desde t = O hasta t = 4. 
SOLUCION: 


DEFINA LA DERIVADA DE_X(T) RESPECTO DE T EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(T) = c..o.oo.o. 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(T) = T 


DEFINA LA DERIVADA DE Y(T> RESFECTO DE T EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN G(T) = ..oooo.. 

A CONTINUACION PULSAR <CONT> E 

220 DEF FN G(T) = SQR(é6*XT+9) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 4 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 100 


LA INTEGRAL PEDIDA ES 


20 (MEDIANTE LA REGLA DE SIMPSON) 


LA INTEGRAL PEDIDA ES 


20 (MEDIANTE LA REGLA DE LOS TRAPECIOS) 


AREA DE REVOLUCION 


introducción: 


Este programa sirve para calcular el área de un sólido de revolución 
engendrado al girar la curva y = f(x) alrededor del eje x , desde x = a 
hasta x = b. El cálculo del área se realiza por dos procedimientos: regla 
de Simpson y regla de los trapecios. 

Para ejecutar este programa, es preciso definir en la linea 210 la 
función y = f(x), del siguiente modo: 

210 DEF FN F(X) = ...... 
A continuación se ha de definir la derivada de la función y = f(x) respecto 
de x en la linea 220 del siguiente modo: 

220 DEF FN D(X) = ......+ 


listado del programa: 


10 REM IRRRICOOIIOIOIOOOIOIIOIIIOIOIOIIIOIOIOOIIIIOIIIOOIIIOIIAOOOOOOOIOIOOOOOIOIOIOIOOOOOOOAAA 
20 REM 

ZO REM AREA DEL SOLIDO DE RE VOLUCION 

40 REM 

50 REM ENGENDRADO AL GIRAR LA CURVA Y=F (Xx) 
60 REM 

70 REM ALREDEDOR DEL E RE A [SIMPSON Y TRAPECIOSI 

20 REM 

PO REMO AOROOIOOIOIIORIOIOOIOIOIIOIIOIIOIIIIOOIIOIOIIOOOIOIOIOIOIOIOIOIOIIIIA 
100 PRINT 


109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210" 
120 PRINT "DEL SIGUIENTE MODO: 210 DEF FN F(X) = ...ooo..” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "DEFINA LA DERIVADA DE Y=F(X) RESPECTO DE X,EN LA LINEA 220" 
160 PRINT "DEL SIGUIENTE MODO: 220 DEF FN D(X) = ...ooo...” 

170 PRINT "A CONTINUACION PULSAR <CONT>" 

120 STOP 

190 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 

200 INPUT A,B 

210 DEF FN F(X) = 

220 DEF FN D(X) = 

230 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 
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240 INPUT N 

250 IF N/2<>INT(N/2) GOTO 250 
260 H=(B-A)/(2XN) 

270 N1=2XN-1 

220 N2=2*X(M-1) 

27%0 SI=0 

300 SP=0 

7310 FOR J=1 TO Ni STEP 2 

320 X=A+HXJ 

330 SI=SI+FN F(X)XASOR (IA FND (172) 
340 NEXT J 

350 FOR J=2 TO M2 STEP 2 

360 X=A+HXJ 

370 SP=SP+FN F(X)XSQR(1+FND(X) 72) 
380 NEXT J 

389 REM - SALIDA DE RESULTADOS - 
390 PRINT 

400 PRINT 

410 Y1=FNF (A)XSGR(1+FND(A)*2) 

420 Y2=FNF (B)XSOR(1+FND(B)72) 

430 15 =6.28312853%HX (1 1+4XASI+2ÍXSP+Y2)/3 


440 PRINT "EL AREA PEDIDA ES = "jIS 5 "UNIDADES CUADRADAS "; 
450 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 

460 PRINT 

470 IT=6.2831853KXHX(SI+SP+(Y1+Y2)/2) 

4380 PRINT "EL AREA PEDIDA ES = "IT 5 "UNIDADES CUADRADAS "5; 
490 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 

500 END 


ejercicios resueltos: 


1. Hallar el área del sólido de revolución engendrado por la curva 
y = L(x + 1) al girar alrededor del eje x, desde x = 1 hasta x = 2. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = 2. ..o oo. 

A CONTINUACION PULSAR <CONT> 

210 DEF FN F(X) =LOG(Xx+1) 


DEFINA LA DERIVADA DE Y=F(X) RESPECTO DE X,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = .o.o..... 

A CONTINUACION PULSAR <CONT> 

220 DEF FN D(X)= 1/(X+1) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? 1 2 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


EL AREA PEDIDA ES 


'" 


6.1586332 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES 
PECIOS) 


6.1586194 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRA- 
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2 Hallar el área del sólido de revolución engendrado por la curva 
y = e* al girar alrededor del eje x, desde x = -1 hasta x = 1. 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = 


A CONTINUACION PULSAR <CONT> 
210 DEF FN F(X)= EXP (X) 


DEFINA LA DERIVADA DE Y=F(X) RESPECTO DE X,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = 
A CONTINUACION PULSAR <CONT> 

220 DEF FN D(xX)= EXP (X) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ?-1 1 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 640 


EL AREA PEDIDA ES 27.772241 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES 
PECIOS) 


27.774331 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRA- 


de Hallar el área descrita por una semionda de la sinusoide y = sen x 
al girar alrededor del eje x. 
SOLUCION: 
Al ser una semionda los extremos del intervalo de integración son: O y T. 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 210 
DEL SIGUIENTE MODO: 210 DEF FN F(X) = ....... 


A CONTINUACION PULSAR <CONT> 
210 DEF FN F(X) = SIN(X) 


DEFINA LA DERIVADA DE Y=F(X) RESPECTO DE X,EN LA LINEA 220 
DEL SIGUIENTE MODO: 220 DEF FN D(X) = ..o.ooo..o 

A CONTINUACION PULSAR <¿CONT> 

220 DEF FN D(X) = COS(X) 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 3.14159 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 40 


EL AREA PEDIDA ES 


14.4236 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE SIMPSON) 


EL AREA PEDIDA ES =  14.421315 UNIDADES CUADRADAS (MEDIANTE LA REGLA DE LOS TRA- 
PECIOS) s 


VOLUMEN DE REVOLUCION 


introducción: 


Este programa sirve para calcular el volumen de un sólido de revolu 
ción engendrado al girar la curva y = f(x) alrededor del eje x, desde x=a 
hasta x=b. El cálculo del volumen se realiza por dos procedimientos: re - 
gla de Simpson y regla de los trapecios. 

Para ejecutar este programa, es preciso definir en la linea 170 la 
función y = f(x) del siguiente modo: 

170 DEF FN F(X) = ...... 


listado del programa: 


10 REM HRRIIIOIIOOIIOIIOIIIIIIIIIIIOIIIIIAIIIAIIIAIIIIIIRRIIRIIRROIO 
20 REM 


30 REM VOLUMEN DEL SOLIDO DE RE VOLUCION 
40 REM 

50 REM ENGENDRADO AL GIRAR LA CURVA Y=F(X) 
60 REM 

70 REM ALREDEDOR DEL EJE Xx [SIMPSON Y TRAPECIOSI 
80 REM 


PO REM III 
100 PRINT 

10? REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170" 


120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = .......” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "LIMITES DE INTEGRACION: INFERIOR, SUPERIOR "; 
160 INPUT A,B 

170 DEF FN F(X)= 

180 PRINT "INTRODUZCA EL NUMERO DE INTERVALOS (PARES)"; 
190 INPUT N 

200 IF N/2<>INT(N/2) GOTO 200 

210 H=(B-A)/ (2%N) 

220 N1=2XN-1 

230 N2=2*X(M-1) 

240 SI=0 

250 SP=0 

260 FOR J=1 TO Ni STEP 2 
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270 X=A+HXJ 

280 SI=SI+4+FN F(X)72 

290 NEXT J 

300 FOR J=2 TO N2 STEP 2 

310 X=A+HXJ 

320 SP=SP+FN F(X)72 

330 NEXT J 

339 REM - SALIDA DE RESULTADOS - 
340 PRINT 

350 PRINT 

360 Y1=FNF(A)72 

370 Y2=FNF(B)72 

380 IS =3.1415927XHX (Y1+49XSI+2XSP+Y2)/3 


390 PRINT "EL VOLUMEN PEDIDO ES = ";3IS ; "UNIDADES CUBICAS"; 


400 PRINT "(MEDIANTE LA REGLA DE SIMPSON)" 
410 PRINT 
420 IT=3.1915927*HX (SI+SP+ (Y1+Y2)/2) 


430 PRINT "EL VOLUMEN PEDIDO ES = ";1IT  ; "UNIDADES CUBICAS"; 


440 PRINT "(MEDIANTE LA REGLA DE LOS TRAPECIOS)" 
450 END 


ejercicios resueltos: 


Lua el volumen del sólido de revolución engendrado al girar la 


curva y = cosec x alrededor del eje x entre T/4 
SOLUCION :: 


DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... g 
A CONTINUACION PULSAR <CONT> 


170 DEF FN F(X)=1/SIN(X) 

LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? .78539 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 

EL VOLUMEN PEDIDO ES = 3.1416241 UNIDADES CUBICAS 


(MEDIANTE LA REGLA DE SIMPSON) 


EL VOLUMEN PEDIDO ES = 3.141669 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


Y 


1.57079 


n/2. 


o mitar el volumen del sólido de revolución engendrado al girar la 


curva y=4x-u x? alrededor del eje x, entre x = 
SOLUCION: 


DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170 
DEL SIGUIENTE MODO: 1720. DEF FN FtXI == ¿.snsós. 
A CONTINUACION PULSAR <CONT> 


170 DEF FN F(X)=49XX-X*XX 


Oy x= 2. 
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Ñ 


LIMITES DE INTEGRACION: INFERIOR, SUPERIOR ? O 2 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 30 


EL VOLUMEN PEDIDO ES = 53.616516 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE SIMPSON) 


EL VOLUMEN PEDIDO ES = 53.616515 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


3. Hallar el volúmen del sólido de revolución engendrado al girar la 
curva y = e* sen x alrededor del eje x, entre x=0 y X=T. 
SOLUCION: 


DEFINA LA FUNCION DE LA CURVA Y=F(X), EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = 
A CONTINUACION PULSAR <CONT> 


170 DEF FN F(X)=EXP (X)X*SIN(X) 


LIMITES DE INTEGRACION: INFERICR, SUPERIOR ? O 3.14159 
INTRODUZCA EL NUMERO DE INTERVALOS (PARES)? 60 


EL VOLUMEN PEDIDO ES = 209.89444 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE SIMPSON) 


EL VOLUMEN PEDIDO ES = 209.89437 UNIDADES CUBICAS 
(MEDIANTE LA REGLA DE LOS TRAPECIOS) 


REGLA DE TCHEBICHEFF 


introducción: 


El presente programa permite obtener mediante aproximación integra 
les definidas, por la regla de integración numérica de Tchebicheff. 
Para la ejecución del programa, es preciso definir en la linea 170 
la función a integrar del siguiente modo: . 
170 DEF FN F(X) = ........ 


listado del programa: 


10 REM ACRONIS OOOO OO ORAR RARA 
20 REM 


30 REM INTEGRACION NUMERICA 
40 REM . 
50 REM REGLA DE TCEHEBDICHÓOE FF 
60 REM 


PO REM ISSO OOOO OOO OOOO III ROI ARK REA AMAR A A 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION GUE DESEA INTEGRAR EN LA LINEA 170" 

120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ooo ooo.” 

130 PRINT "A CONTINACION PULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR"; 
160 INPUT A,B 

170 DEF FM F(X)= 

180 DIM Xx(9) 

190 I=0 

192 REM - VALORES DE LOS COEFICIENTES X(J) - 

200 Xx(1)=0 

210 X(2)=.1679061242 

220 X(3)=.5287617831 

230 X(4)=.6010186554 

240 X(5)=,9115893027 


250 X(6)=-.16790618342 
260 Xx(7?)=-.5287617831 
270 X(8)=-,.6010186554 
280 X(9)=-.9115893077? 


290 FOR J=1 TO 9 
300 Y=.5X(E-A)XX(J) 
310 Y=Y+.5X(B+A) 
320 I=I+FN F(Y) 
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330 NEXT J 
340 I=IX(B-A)/9 

249 REM - SALIDA DEL RESULTADO - 

350 PRINT 

360 PRINT "LA INTEGRAL PEDIDA ES ="31; 
370 PRINT "(REGLA DE TCHEEICHEFF)" 

380 END 


ejercicios resueltos: 


Lars el valor de la siguiente integral: 
SOLUCION: 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(%) = 2...o.oo. 

A CONTINACION PULSAR  <CONT> 

170 DEF FN F(X) = 1/(1+x) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUFERIOR? 0 1.2 


LA INTEGRAL PEDIDA ES = .72243229 (REGLA DE TCHEEICHEFF> 


3 
e Calcular el valor de la siguiente integral: ex 
SOLUCION: $ AR 


DEFINA LA FUNCION QUE DESEA INTESRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN (A) = soon nos 

A CONTINACION PULSAR ¿CONT> 

170 DEF FN F(X) = 1/S0R(14+X 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O 3 


LA INTEGRAL PEDIDA ES = 1,.9999934 (REGLA DE TCHEBICHEFF) 


3. Calcular el valor de la siguiente integral: 
SOLUCION: 


4 Vx? -15 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINACION PULSAR  <CONT> 

170 DEF FN F(X) = X/SQR (X*XX-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? 4 3 


LA INTEGRAL PEDIDA ES = 5.2978278é6 (REGLA DE TCHEBICHEFF) . 


REGLA DE BODE 


introducción: 


Este programa sirve para calcular mediante aproximación integrales 
definidas de funciones de la forma y = f(x). El procedimiento empleado es 
la regla de integración numérica de Bode. 

Para la ejecución del programa, es preciso definir en la linea 170 
la función a integrar del siguiente modo: 

170 DEF FN F(X) = ....... 


listado del programa: 


10 REM IRRRRRORORORARRRORDORORCORDAORROROROROROORRRIRRIO RAIN AA 
20 REM 


ZO REM INTEGRACION NUMERICA 
40 REM 

50 REM REGLA DE BODE 

60 REM 


70 REM IRRRRRRROORRORIOOOROOOOOOOOOIOIOOIOIOOOOIOIOIIOIOIIOIOIIOIIOOAIOIIIIIIIOIIIANAAAAR 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFIMA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170” 

120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = .......” 

130 PRINT "A CONTINACION PULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR”; 
150 INPUT A,B 

170 DEF FN F(X) = 

120 DIM W(6) 

190 I=0 

200 H=(B-A)/10 

209% REM - VALORES DE LOS COEFICIENTES W(J) - 


210 W(1)=— .26834148336 
220 W(2)= 1.7753592914 
230 W(3)= -.8104357063 


240 W(4)= 4.549462383 
250 W(5)=-4.351551227 
260 W(6)= 3.568823152 
20 FOR J=1 TO éá 

220 K=11-J 

290 X=A+HX(J-1) 

7300 S=FN F(X) 

310 X=A+HXK 


180 INTEGRACION NUMERICA 


320 S=S+FN F(X) 
330 I=1+S%XW(J) 

340 NEXTJ 

350 I=IXH 

259 REM - SALIDA DEL RESULTADO - 

360 PRINT 

370 PRINT "LA INTEGRAL PEDIDA ES ="31; 
380 PRINT "(MEDIANTE LA REGLA DE BODE)" 
390 END 


ejercicios resueltos: 


L..:2 
Licsiónas el valor de la siguiente integral: / 
SOLUCION: o 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(x) = 
A CONTINACION PULSAR  <CONT> 

170 DEF FN F(X) =.1/(1+x) 


JNTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O l. 


LA INTEGRAL PEDIDA ES = .788345737 (MEDIANTE LA REGLA DE EODE) 


Z. Calcular el valor de la siguiente integral: 


. , 


SOLUCION: o vi+x 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA ¡70 
DEL SIGUIENTE MODO: 170 DEF FN F(x) = .,. 
A CONTINACION PULSAR  XCONT> 
170 DEF FN F(X) = 1/S0R(1+X) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUFERIOR? O 3 


LA INTEGRAL PEDIDA ES = 2.0000018 (MEDIANTE LA REGLA DE BOUDE) 


3. Calcular el valor de la siguiente integral: == 


2 
SOLUCION: 4 v4x2=15 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 120 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTIMACION PULSAR  —<CONT> 

170 DEF FN F(X) = X/SQR (XXX-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? 4 8 


LA INTEGRAL PEDIDA ES = 6.0234465 (MEDIANTE LA REGLA DE BODE) 


REGLA DE GAUSS 


introducción: 


Este programa sirve para calcular mediante aproximación integrales 
definidas de funciones de la forma y = f(x). El procedimiento empleado es 
la regla de integración numérica de Gauss. 

Para la ejecución del programa, es preciso definir en la linea 170 
la función a integrar del siguiente modo: 

170 DEF FN F(X) = ...+..+.+.. 


listado del programa: 


10 REM HIRO III III 


20 REM 

ZO REM INTEGRACION NUMERICA 
40 REM 

50 REM REGLA DE GAUSS 

60 REM 


70 REM A A 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 

120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ..ooo.oo.” 

130 PRINT "A CONTINUACION PULSAR <CONT>" 

140 STOP 

150 PRINT "INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR"; 
160 INPUT A,B 

170 DEF FN F(X) = 

1280 DIM X(12),V(12) 


190 I1=0 

199 REM - VALORES DE LOS COEFICIENTES X(J) Y YI) - 
200 Xx(1) = .12523394085 : V(1) =.2491470458 
210 X(2) = .36783149289 : V(2) =.2334925365 
220 X(3) = .58731795942 : V(3) =.2031674267 
230 X(4) = .7699026741 : V(4) =.1600783285 
2940 X(5) = .9041172563 : V(5) =.1069393259 
250 X(6) = .9215606342 : V(6) =.0471753363 
260 X(7) = -X(1) 2 V(7) = V(1) 

270 X(8) = -X(2) 2  V(8) = V(2) 

280. X(9) = -X(3) 2 V(9) = V(3) 

290 X(10)= -X(4) z  V(10)=V(4) 


300 X(11)= -X(5) Zo V(11)=V (5) 
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310 X(12)=-X(6) :V(12)=V (6) 
320 FOR J=1 TO 12 

330 Y=(B-A)XX(J)*X.5 

390 Y=Y+(B+A)%X.5 

349 REM - SALIDA DEL RESULTADO - 
350 I=I+V(JIXFN F(Y) 

360 NEXT J 

370 I=IX(B-A)X.5 

330 PRINT 


390 PRINT "LA INTEGRAL PEDIDA ES = "; 1; 
400 PRINT "(MEDIANTE LA REGLA DE GAUSS)" 
410 END 


ejercicios resueltos: 


1.42 
Lisa el valor de la siguiente integral: / qe 
SOLUCION: a 


DEFINA LA FUNCION GUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(Xx) = ....... 

A CONTINUACION PULSAR  <CONT> 

170 DEF FN F(X) =1/(1+x) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O 1.2 


LA INTEGRAL PEDIDA ES = .78845736 (MEDIANTE LA REGLA DE GAUSS) 


3 
2. Calcular el valor de la siguiente integral: / a 
SOLUCION: a 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FM F(X) = ....... 


A CONTINUACION PULSAR <CONT> 
170 DEF FN F(X) =1/SQR(1+x) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? O 3 


LA INTEGRAL PEDIDA ES = 2 (MEDIANTE LA REGLA DE GAUSS) 
3 "o xa 
e Calcular el valor de la siguiente integral: tE 
SOLUCION: 2 Wx9-15 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR <CONT> 

170 DEF FN F(X) =X/SOR(XXX-15) 


INTRODUZCA LOS LIMITES DE INTEGRACION : INFERIOR Y SUPERIOR? 4 2 


LA INTEGRAL PEDIDA ES = 5.9998834 (MEDIANTE LA REGLA DE GAUSS) 


INTEGRALES IMPROPIAS CON EXTREMO 
SUPERIOR INFINITO 


introducción: 


Este programa sirve para calcular integrales impropias con extremo 
superior infinito de funciones de la forma y = f(x). El cálculo se realiza 
mediante la regla de Gauss. 

Para la ejecución de este programa, es necesario definir en la li- 
nea 170 la función a integrar, del siguiente modo: 

170 DEF FN F(X) = ....... 
Como el extremo superior es siempre infinito, el programa solo requiere 
la introducción del extremo inferior. 


listado del programa: 


10 REM ISRRRSIOIOIRIOIOOCOOOOIOIIIIIIIIIOOOIIIIOOIOIOIOIIROROIRIOIIRRRRRRRORIROOEX 
20 REM 


3O REM INTEGRALES IMPROPIAS 

40 REM 

50 REM CON EXTREMO SUPERIOR INFINITO 

60 REM 

AI EEES 
100 PRINT 


109 REM - ENTRADA DE DATOS - 
110 PRINT "DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170" 


120 PRINT "DEL SIGUIENTE MODO: 170 DEF FN F(X) = ...o.o.o.” 
130 PRINT "A CONTINUACION PULSAR <CONT>" 
140 STOP 


150 PRINT "INTRODUZCA EL LIMITE INFERIOR"; 
160 INPUT A 

170 DEF FN F(X)= 

180 DIM X(12),V(12) 


170 I=0 

1909 REM - VALORES DE LOS COEFICIENTES X(J) Y Vv(J) - 
200 xX(1) = .1252334085 : V(1) =.2491470458 
210 X(2) = .3678314989 : V(2) =.2334925365 
220 X(3) = ¿5873179542 : V(3) =.2031674267 
230 X(4) = .76992026741 : V(4) =.1600783285 
240 X(5) = .9041172563 : V(5) =.1069393259 
250 X(6) = .9815606342 : V(6) =.0471753363 
260 X(7) = -X(1) Ss V(7) = V(1) 

270 X(8) = -X(2) Ss  V(8) = V(2) 

280 X(9) = -X(3) 2 V(9) = V(3) 


290 X(10)= -X(4) V(10)=V (4) 
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300 X(11)= -X(5) 2 V(11)=V (5) 
310 X(12)=-X(6) Z V(12)=V(6) 
320 FOR J=1 TO 12 

330 Y=A+ (2/(X(J)+1))-1 

340 YE=FN F(Y) 

350 YE=YE/ ((X(J)+1)72) 

360 I=I+V(J)XYE 

370 NEXT J 

380 I=2X*I 

389 REM - SALIDA DEL RESULTADO - 

390 PRINT 

400 PRINT "LA INTEGRAL IMPROPIA PEDIDA ES = "; 1; 


410 PRINT "(MEDIANTE LA REGLA DE GAUSS CON EXTREMO SUPERIOR INFINITO)" 
420 END 


ejercicios resueltos: 


Ll uassqs el valor de la siguiente integral: 
SOLUCION: o x +4 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 


A CONTINUACION PULSAR —<CONT> 
170 DEF FN F(X)=1/(XXX+4) 


INTRODUZCA EL LIMITE INFERIOR? O 


LA INTEGRAL IMPROPIA PEDIDA ES 
TREMO SUPERIOR INFINITO) 


.78539816 (MEDIANTE LA REGLA DE GAUSS CON EX- 


oo 


2, Calcular el valor de la siguiente integral: / e * sen x dx 
SOLUCION: 9 


DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ....... 

A CONTINUACION PULSAR  <CONT> 

170 DEF FN F(X)=EXP (-X)XSIN(X) 


INTRODUZCA EL LIMITE INFERIOR? O 


LA INTEGRAL IMPROPIA PEDIDA ES = .49735825 (MEDIANTE LA REGLA DE GAUSS CON EX- 
TREMO SUPERIOR INFINITO) 


Iciar el valor de la siguiente integral: 8 


SOLUCION: 1 
DEFINA LA FUNCION QUE DESEA INTEGRAR EN LA LINEA 170 
DEL SIGUIENTE MODO: 170 DEF FN F(X) = ..ooo... 


A CONTINUACION PULSAR —<CONT> 
170 DEF FN F(X)=1/ (XXX) 


INTRODUZCA EL LIMITE INFERIOR? 1 


LA INTEGRAL IMPROPIA PEDIDA ES = 1 (MEDIANTE LA REGLA DE GAUSS CON EX-TREMO SU 
PERIOR INFINITO) 


INTERPOLACION LINEAL 


introducción: 


Este programa sirve para, a partir de dos puntos conocidos A, B , 


construir la recta determinada por ellos, y asi poder interpolar para va- 


lores intermedios de x la y esperada o reciprocamente. 


listado del programa: 


10 

20 REM 

TO REM 

40 REM ¿- NT ER PD 
50 REM 

60 REM 

70 

100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "INTRODUZCA COORDENADAS 

120 INPUT XO,YO 

130 PRINT "INTRODUZCA COORDENADAS 

140 INPUT X1,Y1 

150 PRINT 

160 PRINT "SI DESEA HALLAR X A PARTIR 
170 PRINT "SI DESEA HALLAR Y A FARTIR 
180 INPUT C 

190 PRINT 

202 IF C=1 THEN 220 

210 PRINT "INTERPOLACION PARA X ="; 
220 INPUT X 

230 Y=Y1+ (X-X1)X*(Y1-YO)/(X1-X0) 

240 PRINT "CORRESPONDE Y ="3Y 
250 PRINT 

260 GOTO 210 

270 PRINT 

280 PRINT "INTERPOLACION PARA Y ="; 
290 INPUT Y 

300 X=X1+(X1-X0)*(Y-Y1)/(Y1-YO) 

310 PRINT "CORRESPONDE XxX ="35X 
320 PRINT 

330 GOTO 280 

340 END 


REM OOOO 


ACCION LINEAL 


EEES 


XO,YO DEL PUNTO A(XO0,YO)";5 


X1,Y1 DEL PUNTO B(X1,Y1)"; 


PULSE 1" 
PULSE 2" 


DE Y CONOCIDO, 
DE X CONOCIDO, 
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ejercicios resueltos: 


1. Dados los puntos A(2.35, 7.98) y B(12.39, -3.56), calcular los 
valores de y para los siguientes valores de x: 5.6, A 18 


SOLUCION: 


INTRODUZCA COORDENADAS XO,YO DEL PUNTO A(X0,YO)? 2.35 7.98 
INTRODUZCA COORDENADAS X1,Y1 DEL PUNTO B(X1,Y1)? 12.39 -3.56 


SI DESEA HALLAR X A PARTIR DE Y CONOCIDO, PULSE 1 
SI DESEA HALLAR Y A PARTIR DE X CONOCIDO, PULSE 2 
?2 


INTERPOLACION PARA X =7? 5.6 
CORRESPONDE Y = 4.2444422 


INTERPOLACION PARA X =? 3.9 
CORRESPONDE Y = 6.1984263 


INTERPOLACION PARA X =? 12 
CORRESPONDE Y =-3.1117331 


Ze Dados los puntos A(1, 43.75) y B(5, 117.98), calcular los valores 
de x para los siguientes valores de y: 10, 6, 15. 
SOLUCION: 


INTRODUZCA COORDENADAS XO,YO DEL PUNTO A(X0,YO)”? 1 43.75 
INTRODUZCA COORDENADAS X1,Y1 DEL PUNTO B(X1,Y1)? 5 117.78 


SI DESEA HALLAR X A PARTIR DE Y CONOCIDO, PULSE 1 
SI DESEA HALLAR Y A PARTIR DE X CONOCIDO, PULSE 2 
?1 


INTERPOLACION PARA Y =? 10 
CORRESPONDE X =-.82358503 


INTERPOLACION PARA Y =7? '6 
CORRESPONDE X =-1.0397136 


INTERPOLACION PARA Y =? 15 
CORRESPONDE X =-.55342429 


INTERPOLACION DE LAGRANGE 


introducción: 


tos 


gra 


cuy 


Este programa sirve para ajustar un polinomio a un conjunto de pun- 


. El método del ajuste se conoce con el nombre de interpolación de La- 
nge. 

Gracias a este ajuste es posible calcular las ordenadas de puntos 
as abscisas son conocidos. 


listado del programa: 


REM FOCO OOOO III III III RARA: 
REM 

REM 

REM INTERPOLACION DE LAGRANGE 

REM 

REM 

REM TORIO IIA: 
PRINT 

REM - ENTRADA DE DATOS - 

PRINT "NUMERO DE PUNTOS CONOCIDOS"; 

INPUT N 
DIM X(N),Y(N) 


PRINT "INTRODUZCA LAS COORDENADAS DE LOS";3N;"PUNTOS CONOCIDOS" 
PRINT 

FOR J=1 TON 

PRINT "COORDENADAS X,Y DEL PUNTO"5J ; 
INPUT X(J),Y(J) 

NEXT J 

PRINT 

PRINT "INTERPOLACION PARA X ="; 

INPUT XxO 

Y=0 

FOR I=1 TON 

Ss=1 

FOR J=1 TON 

IF J=1I THEN 290 
S=SX(XO-X(J))/(X(1)-X(J)) 

NEXT J 

Y=Y+SXY (1) 

NEXT I 


188 INTERPOLACION 


320 PRINT "CORRESPONDE Y ="3Y 
330 PRINT 

340 GOTO 210 

350 END 


ejercicios resueltos: 


Lio los siguientes puntos: (1, 4.5), (2, 5), (3, 5.7), (4, 6), 
(5, 6.3), (6, 6.8), (7, 7.3), (8, 7.9), hallar los valores correspondientes 
para x=1.7, x= 3.4, x= 7.2, x= 4.8. 
SOLUCION: 


NUMERO DE PUNTOS CONOCIDOS? 8 
INTRODUZCA LAS COORDENADAS DE LOS 8 PUNTOS CONOCIDOS 


COORDENADAS X,Y DEL PUNTO 1 ? 1 4.5 
COORDENADAS X,Y DEL PUNTO 2 ? 2 Ss 
COORDENADAS X,Y DEL PUNTO 2 7? 3 5.7 
COORDENADAS X,Y DEL PUNTO 4 ? 4 6 
COORDENADAS X,Y DEL PUNTO 5 7? 5 6.3 
CONMRDENADAS X,Y DEL FUNTO 6 ? á 6.8 
COORDENADAS X.Y DEL PUNTO 7 ? 7 7.3 
COORDENADAS *X,Y DEL PUNTO 8 ? S PR 
INTERPOLACION PARA X =? 1.7 

CORRESPONDE Y = 4,741505 


INTERPOLACION PARA X =7? 3.4 
CORRESPONDE Y 5,e€501988 


INTERPOLACION PARA X =? 7,2 
CORRESPONDE Y = 7.3891246 


INTERPOLACION PARA X =7? 4.8 
CORRESPONDE Y = 6.2231109 


y EA los puntos: (0, 4.57), (3, 8.23), (6, 12.06), (8, 15), hallar 
los valores de y correspondientes a los siguientes valores de x: 4,- 5, 
de: Le 
SOLUCION: 


NUMERO DE PUNTOS CONOCIDOS? 4 
INTRODUZCA LAS COORDENADAS DE LOS 4 PUNTOS CONOCIDOS 


COORDENADAS X,Y DEL PUNTO 1 ? O 4.57, 
COORDENADAS X,Y DEL PUNTO 2 ? 3 8.23 
COORDENADAS X,Y DEL PUNTO 3 ? 6 12.06 
COORDENADAS X,Y DEL PUNTO 4 ? 8 15 


INTERPOLACION PARA X =7? 4 
CORRESPONDE Y = 9.4585556 


INTERPOLACION PARA X =? 5 
CORRESPONDE Y = 10.727917 
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INTERPOLACION PARA X =? 7 
CORRESPONDE Y = 13.476722 


INTERPOLACION PARA X =? 1 
CORRESPONDE Y = 5.8076389 


j 3. Dados los puntos: (-6, 7.25), (-4, 8), (-2, 7.75), (O, 8.25), 


(2, 8.3), (4, 9), (5, 9.2), (7, 10), (9, 10.5), hallar los valores de y 
correspondientes a los siguientes valores de x: 3, 8.5 =5, 1. 
SOLUCION: 


INTERPOLACION PARA X =NUMERO DE PUNTOS CONOCIDOS? 9 
INTRODUZCA LAS COORDENADAS DE LOS 9 PUNTOS CONOCIDOS 


NUMERO DE PUNTOS CONOCIDOS? 9 
INTRODUZCA LAS COORDENADAS DE LOS 9 PUNTOS CONOCIDOS 


COORDENADAS X,Y DEL PUNTO 1 ?-6 7.25 
COORDENADAS X,Y DEL PUNTO 2 ?-4 8 
COORDENADAS X,Y DEL PUNTO 3 ?-2 7.75 
COORDENADAS X,Y DEL PUNTO 4 ? O 8.25 
COORDENADAS X,Y DEL PUNTO 5 ? 2 8.3 
COORDENADAS X,Y DEL PUNTO 6 ? 4 9 
COORDENADAS X,Y DEL PUNTO 7 ? 5 9.2 
COORDENADAS X,Y DEL PUNTO 8 ? 72 10 
COCRDENADAS X,Y DEL PUNTO 9 ? 9 10.5 
INTERPOLACION PARA X =7? 3 

CORRESPONDE Y = 8.6272072 
INTERPOLACION PARA X =? 8.5 

CORRESPONDE Y = 11.593759 
INTERPOLACION PARA X =7?-5 

CORRESPONDE Y = 9.3737544 


INTERPOLACION PARA X =7? 1 
CORRESPONDE Y = 8.2041084 


PROGRAMAS 
DE 


CALCULO 
DE 
PROBABILIDADES 


NUMEROS ALEATORIOS ENTRE 0 Y 1 


introducción: 


Este breve programa sirve para generar numeros aleatorios entre O y 


1, para ello se utiliza la función de librería que poseen los microordena- 
dores RND. 


En algunos micros para obtener números aleatorios entre O y 1 se ha 
de escribir en la linea 160 X = RND(1). 

La sentencia de la linea 110 RANDOMIZE sirve para restablecer la ge 
neración de números aleatorios, ya que si no se hiciera al ejecutar la fun 
ción RND se produce la misma serie de números. No todos los micros preci - 
san de la sentencia RANDOMIZE. 


listado del programa: 


10 REM III 
20 REM 

30 REM NUMEROS ALEATORIOS 

40 REM 

50 REM ENTRE (a) Y 1 

60 REM 

70 REM III 
100 PRINT 

110 RANDOMIZE . 

120 PRINT "CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR " 5 

130 INPUT N 

140 PRINT 

150 FOR I=1 TO N 

160 X=RND 

170 PRINT X, 

180 NEXT I 

190 END 


J.R.VIZMANOS 193 


ejercicios resueltos: 


1. Generar 100 números aleatorios comprendidos entre O y 1. 
SOLUCION: 


CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR ? 100 


«66111636 .99669448 . 74986924 «73111219 .655412549 
. 30280804 . 34766493 . 40634861 .25326 .28743388 
.8733116 . 47250194 . 2871809 .55212093 .82923229 
. 46287042 . 92966703 . 15479702 «18181261 . 43484974 
.19922229 . 45345791 «31910335 .5641103 . 756494424 
. 44692652 .9782497 .25928223 .91201971 . 47205755 
. 689522 .78152328 .018509465 . 36676237 .53382305 
.6033445 .66779691 . 45822923 .26054705 .979106874 
. 36607594 .928571379 . 062664971 .54529696 . 60825273 
.81727499 .55591164 .68375735 . 53236367 .5ó6983113 
. 725894927 . 30091226 .51479547 .49191142 «12138261 
. 088697927 .56144892 .721847771 .89650064 . 25277209 
«11127729 .75719156 . 40561985 . 60864429 .72951833 
«31550171 . 99090403 .29206412 .92922857 .82792673 
. 72035357 .56804217 . 85408357 . 29270808 .02411402 
. 47287886 . 73559229 .27860843 .16215432 .27357606 
.272660054 .20703035 .73156418 . 97900652 .52295841 
. 27583021 .84897105 .3872161 . 47522683 .62720254 
. 95177646 . 40323387 .062298208 . 62320955 .8828118 
«61176495 . 94880605 .33693107 . 03847059 .33914117 


3 Generar 40 números aleatorios comprendidos entre O Puri 


SOLUCION: 


CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR ? 40 


.22396731 . 68521682 . 43491258 .036455817 . 48510919 
. 27040264 . 16478835 .61818638 + 15839611 .9295695 

. 16235884 . 1025526 . 88885022 .26676632 .24254711 
. 58535272 .6614633 . 42242092 . 68423876 . 68648243 
. 30723926 .81702908 . 187978458 «14411213 .29927566 
«51191371 . 80342976 .92937195 . 76075934 .9064295 

.37334463 .86591964 .85675104 . 20098784 .2?9113201 
. 98876625 .29163419 . 388527696 .61868608 . 12673463 


3. Generar 25 números aleatorios comprendidos entre O y 1. 


SOLUCION: 


CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR ? 25 


.85267519 .54384414 . 15895738 - 65106458 .54179559 
«61314129 .89298354 .78401585 «18602978 929376323 
. 093923174 .27819652 . 4928999 -. 66225887 .13919933 


. 44190484 .50989774 . 051556056 .87019762 . 70753651 


NUMEROS ALEATORIOS ENTRE 0 Y 100 


introducción: 


Este breve programa sirve para generar números aleatorios entre O 
y 100 (solo parte entera), para ello escribiremos en la linea 160, los si- 
guiente: X = INT (RND *100 + .5) 


Todo lo dicho en el programa anterior sobre RND( ) y RANDOMIZE es 


igualmente válido en este y en los siguientes programas. 


listado del programa: 


10 REM ISRRRSRACAIORIOROSOOIOIRIIIIIOIOIIIIIIIIIIIIOIOOIOIIOIIIIIIOIOIOIOOIIIIIIAA 
20 REM 


30 REM NUMEROS ALEATORIOS 
40 REM 

50 REM PARTE ENTERA ENTRE O Y 100 

60 REM 


70 REM FRASCO 
100 PRINT 

110 RANDOMIZE 

120 PRINT 

130 PRINT "CUANTOS NUMEROS ALEATORIOS QUIERE GENERAR"; 
140 INPUT N 

150 FOR I=1 TO N 

1640 X=INT(RNDX100+.5) 

170 PRINT X, 

180 NEXT I 

190 END 


ejercicios resueltos: 


Ys Generar 100 números aleatorios (parte entera) entre O y 100. 
SOLUCION: : 


CUANTOS NUMEROS ALEATORIOS QUIERE CALCULAR ? 100 


CUANTOS NUMEROS ALEATORIOS QUIERE CALCULAR 7? 30 


CUANTOS NUMEROS ALEATORIOS QUIERE CALCULAR ? 50 


60 
69 


69 


y ARAN 30 números aleatorios (parte entera) entre O y 100. 
SOLUCION 


e A 50 números aleatorios (parte entera) entre O y 100. 
SOLUCION 


26 
Z? 
40 
96 
82 
82 
25 
56 
68 


? 


94 
84 
60 
58 
1 


83 
100 
44 
93 


48 
33 
27 
40 
21 
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5é 
74 
58 
ER] 
44 
30 
55 
74 
15 


64 


3 

52 
37 
75 
32 


91 
42 
10 
1 

93 


66 
36 
64 
26 
89 
99 
92 
15 
62 


70 


60 
ló 
34 
18 
96 


89 


100 


28 
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52 
74 
44 
30 
37 
59 
19 
59 
52 


?3 


95 
60 
73 
45 
13 


NUMEROS ALEATORIOS QUE SE DISTRIBUYEN SEGUN 
UNA DISTRIBUCION BINOMIAL B (N, P) 


introducción: 


Este programa sirve para generar números aleatorios que siguen una 
distribución binomial de parámetros conocidos n y p. 

La ley de probabilidad de la distribución binomial viene dada por 
la siguiente expresión: 


E 


p(x = r) = () p” gr siendo q = 1-p 


Obsérvese que al ser la media de la distribución binomial igual a 
np, los números aleatorios generados se concentran entorno a np en cada 


caso. 


listado del programa: 


10 REM IRSA RRRRRRRRIORRRRIORRORRIROOIOR 


20 REM 

30 REM GENERACION DE (NUMEROS ALEATORIOS 

40 REM 

50 REM QUE SE DISTRIBUYEN SEGUN UNA BINOMIAL B(N,P) 
60 REM 


70 REM III: 
100 PRINT Ñ 

110 PRINT "CUANTOS NUMEROS QUIERE GENERAR M ="3 
120 INPUT M 

130 PRINT "NUMERO DE PRUEBAS REALIZADAS N ="; 
140 INPUT N 

150 PRINT "PROBABILIDAD DEL SUCESO EXITO P =";5 
160 INPUT P 

170 PRINT 

180 FOR J=1 TO M 

190 2=0 

200 FOR I=1 TO N 

210 IF RND <P THEN Z=Z+1 

220 NEXT 1 

230 PRINT Z, 

240 NEXT J 

250 END 


J.R.VIZMANOS 197 


ejercicios resueltos: 


¡PA 100 números aleatorios que se distribuyan según una bino- 
mial de parámetros B(15, 0.4). 
SOLUCION: 
CUANTOS NUMEROS QUIERE GENERAR M =? 100 


NUMERO DE PRUEBAS REALIZADAS N =2 15 
PROBABILIDAD DEL SUCESO EXITO P =? .4 


6 8 4 5 Ss 7 4 2 ? 6 
5 8 7 ó 9 4 7 5 8 8 
Z 8 4 4 1 6 ? 1 6 8 
vd 4 E) 5 5 7 8 3 4 4 
7 ? 5 8 s 8 Ss 4 7 ? 
8 ES 6 5 5 8 8 5 6 3 
10 4 6 6 8 5 ó 10 6 6 
6 6 8 Z 7 6 4 7 10 4 
8 5 6 ? 5 6 4 ? 4 5 
5 4 3 5 5 6 5 4 6 6 


Z. Generar 50 números aleatorios que se distribuyan según una binomial 
de parámetros B(12, 0.3). 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR M =? 50 
NUMERO DE PRUEBAS ¡REALIZADAS N =? 12 
PROBABILIDAD DEL SUCESO EXITO P =? .3 


dd - 004 
UNaAAO 
0dnNas a 
Nr-NOUuN 
Nroda 
bbranasp 
UDANO 
OnAadUN 
NAODn A 
FrFNdWdNo 


e AA 30 números aleatorios que se distribuyan según una binomial 
de parámetros B(8, 0.65). 
SOLUCION: 
CUANTOS NUMEROS QUIERE GENERAR M =? 30 


NUMERO DE PRUEBAS REALIZADAS N =? 8 
PROBABILIDAD DEL SUCESO EXITO P =? .65 


6 6 6 7 4 5 Ss 4 5 5 
6 3 s 6 Ss Ss 6 6 4 5 
5 5 6 8 7 5 6 8 3 5 


NUMEROS ALEATORIOS QUE SE DISTRIBUYEN SEGUN 
UNA DISTRIBUCION DE POISSON P (L) 


introducción: 


Este programa sirve para generar números aleatorios que se distri- 
buyen según una ley de Poisson de parámetro conocido L. 
La ley de probabilidad de esta distribución viene dada por la si - 


guiente expresión: p* -L 
p(x = r) = TU e 


El parámetro L es la media de la distribución. 


listado del programa: 


10 REM IRRRRRRRRROROOROCROROROROROROROORORIOOOIOOOOII OACI: 
20 REM 

30 REM GENERACION DE NUMEROS ALEATORIOS 

40 REM 

50 REM QUE SE DISTRIBUYEN SEGUN UNA DISTRIBUCION DE POISSON P(L) 
60 REM 

70 REM IRRRRRRRRRARRARORRORRORRORRRARRROROORORORERROOROROROROARIARRROROOOORIIOIIOIIAIIOIRIIIIIIAAA: 
100 PRINT 

110 PRINT "CUANTOS NUMEROS QUIERE GENERAR "5 

120 INPUT N 

130 PRINT "INTRODUZCA EL PARAMETRO L DE LA DISTRIBUCION DE POISSON”; 

140 INPUT L 

150 PRINT 

140 FOR J=1 TO N 

170 X=RNDXEXP (L) 

180 Al=1 

190 Bi=1 

200 B=0 

210 IF A1>X THEN GOTO 260 

220 B=B+1 

230 Bi1=B1XL/B 

240 Al1=A1+B1 

250 GOTO 210 

260 IF B>0 THEN B=B- (A1-X)/B1 

270 Z=B 

280 PRINT Z, 

290 NEXT J 

300 END 


ejercicios resueltos: 
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¡A 100 números aleatorios que se distribuyan según una ley de 


Poisson de parámetro 4.5. 
SOLUCION 


: 


CUANTOS NUMEROS QUIERE GENERAR ? 100 


INTRODUZCA EL PARAMETRO L DE LA DISTRIBUCION DE POISSON? 4.5 


4.4790046 
4.3899337 
2.9691246 
1.0481329 
3.389521 
2.0376018 
2.7354873 
6.0145394 
2.6883133 
3.5224978 
2.0717965 
6.3337475 
3.9325078 
4.6356179 
3.7837442 
4.1187839 
1.2954799 
3.2212459 
.033714553 
7.3808591 


7.8768798 
4.1750698 
3.5307637 
1.2980574 
4.992263 

3.8150252 
3.5958806 
5.6717572 
2.2100816 
4.684139 

1.4880771 
2.0394883 
2.3260118 
6.8796726 
4.8407635 
1.0565397 
6.5097622 
2.0637678 
5.9346837 
4.076205 


1.1382678 
8.7034091 
6.6992425 
1.0643043 
1.4101242 
5.2728204 
3.4807801 
4.1234886 
4.0966309 
4.8034561 
7.8964168 
8.7444758 
2.5575084 
1.2419169 
4.87616 

1.2710927 
7.1190892 
3.6230742 
4.6771683 
2.3014229 


2.2340479 
1.6281? 
2.4097152 
7.3704396 
1.5416204 
2.9852433 
2.0143558 
3.5207337 
5.3790696 
2.2877596 
6.7554964 
5.6254214 
5.2563448 
1.7395451 
5.5472892 
1.7913829 
2.6292761 
4.825986 
3.710739 
6.0611323 


. 4417386 

3.9125009 
4.9753847 
4.6607317 
3.7250827 
2.7765388 
4.9225839 
5.4562648 
4.910408 

3.2461986 
4.190031 

9.6360966 
4.1579961 
4.9809084 
1.4661649 
5.9421862 
3.5752319 
9.5821035 
5.0690967 
6.1918552 


pm Generar 50 números aleatorios que se distribuyan según una ley de 


Poisson de párametro 5.7. 
SOLUCION 


NUMEROS QUIERE GENERAR ? 50 
INTRODUZCA EL PARAMETRO L DE LA DISTRIBUCION DE POISSON? 5.7 


5.7462943 
5.6508272 
4.058842 

1.8112457 
4.5305786 
2.97987808 
3.7992287 
7.5201647 
3.7451464 
4.6810226 


9.5648654 
5. 4205337 
4.6903744 
2.9352359 
6.3640124 
5.0126054 
4.7640447 
7.0524224 
3.1968822 
5.9661595 


1.9977642 
10.432007 
8.2061556 
1.844709%6 
2.294907 

6.643523 

4.6338251 
5.3706075 
5.3364621 
6.1154937 


3.2243582 
2.5323847 
3.4257503 
8.9213368 
2. 438122 

4.0750517 
2.9608044 
4.6790269 
6.7484116 
3.2859355 


1.1982538 
5. 1286894 
6.3417963 
5.9410714 
4.9102183 
3.8692205 


6.2722967 


6.8246182 
6.25627 
4.36843 


NUMEROS ALEATORIOS QUE SE DISTRIBUYEN SEGUN 
UNA DISTRIBUCION NORMAL N (M, S) 


introducción: 


Este programa sirve para generar números aleatorios que siguen una 
distribución normal de parámetros conocidos M y S. 

El cálculo de estos números está basado en el teorema central del 
límite. 

La función de densidad de una distribución normal N(M,S) viene da- 


da por la expresión: 
dl. 1 -M,2 
f(x) = ——— expl- 5 En ) 
S y2 T 


Obsérvese que para valores de N suficientemente grandes se verifi- 
ca que el 68,2% de los números obtenidos se encuentran en el intervalo: 


(M - S, M+ $S). 


listado del programa: 


10 REM RRA: 
20 REM 

30 REM GENERACION DE NUMEROS ALEATORIOS 

40 REM 

50 REM QUE SE DISTRIBUYEN SEGUN UNA NORMAL N(M,S) 
60 REM 

70 REM RAIOIOOCIORICIOICIOICAIOIIAIAIIAIOIOIIIIAIAIIIIIAIIA 
100 PRINT 

110 PRINT "CUANTOS NUMEROS QUIERE GENERAR"; 

120 INPUT N . 

130 PRINT "INTRODUZCA LA MEDIA Y LA DESVIACION TIPICA" 

140 PRINT "MEDIA Mm ="; j 

150 INPUT M 

160 PRINT "DESVIACION TIPICA S ="; 

170 INPUT S 

180 PRINT 

190 FOR J=1 TO N 

200 Z=0 

210 FOR I=1 TO 48 

220 Z=Z+RND-.5 

230 NEXT 1 

240 2Z=M+SXZ/2 

250 PRINT Z, 

260 NEXT J 

270 END 
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ejercicios resueltos: 


¡PP 100 números aleatorios que se distribuyan normalmente sien- 
do la media M = 7, y la desviación típica S = O,5. 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR? 100 
INTRODUZCA LA MEDIA Y LA DESVIACION TIPICA 
MEDIA M =? 72 

DESVIACION TIPICA S=? .5 


6.6837221 7.3083412 6.5928658 6.5808139 6.9133598 
6.579334 6.1652235 8.1051712 7.1809766 7.322095 

7.1056385 7.5063749 7.6467287 6.5467805 6.8242669 
6.9445812 7,2207726 6.8135466 6.7312651 7.0799463 
7.0632642 6. 4825497 6.7367894 6.5726264 6.5843601 
6.7139459 7.0009958 7.3327778 7.6942162 7.16728916 
7.1840408 7.7705568 6.8029891 7.004543 6.9460805 
6.7961197 7.8208347 6.8840563 5.9472712 7.3196226 
6.4079096 7.4665878 6.2477692 6.0012218 7.7243698 
6.9122938 6.0577307 7.5010735 6.9303716 7.6313304 
6.2373119 6.4793341 7.1860713 6.533854 7.0466691 
7.5961597 7.4016251 7.0300208 7.1459586 7.5117067 
6.7371893 6.279987 7.1953366 5.8861312 7.1029201 
7.4439089 7.3549593 7.3795895 6.6589738 8.1819427 
7.0349831 ?7,.9022379 6.0655066 6.9042447 6.375564 

6.6142326 6.4826748 8.2709712 7.0968585 6.6757299 
7.0706347 7.6922723 7.0490228 7.246886 6.7395424 
7.5783224 7.662213 6.7378571 6.8995542 7.0892597 
7.5965855 6.8087996 7.4608264 7.1352464 6. 2622965 
6.6198696 7.0835152 6.8764388 7.8195022 6.5812235 


pr Generar 50 números aleatorios que se distribuyan según una N(O,1) 
SOLUCION: 


CUANTOS NUMEROS QUIERE GENERAR? 50 
INTRODUZCA LA MEDIA Y LA DESVIACION TIFICA 
MEDIA =P? 0 

DESVIACION TIPICA S =? 1 


-.63255586 .61668242 -.81426843 -.83837228 -.1732805 
-.84133195 -1.669553 2.2103425 .36195312 1.0441901 
«21127693 1.0127499 1.2934575 -.90643906 -.35146614 
-.11083763 . 44154511 -.3729068 -.53746971 . 15989251 
. 12652848 -1.0349007 -.52642127 -. 25474723 -.8312799 
-.57210814 .0019916678 . 66555566 1.3884325 33578325 
.36808161 1.5411137 -.39402189 . 0090860212 -.10783895 
-.40776067 1.6416695 -.23188733 -2.1054575 .6392451 
-1.1841809 .93317569 -.30446156 -1.9975565 1.4487395 


-.17541241 -1.8845386 1.002147 -.13925686 1.2626609 


LANZAMIENTO DE UN DADO 


introducción: 


Este programa sirve para simular el experimento aleatorio consisten 
te en el lanzamiento N veces de un dado anotando el resultado obtenido en 
la cara superior. Posteriormente realiza un recuento para expresar las fre 
cuencias absolutas y relativas de cada uno de los resultados posibles. 

Si el número de lanzamientos realizados fuese suficientemente gran- 
de la frecuencia relativa de cada suceso tendería a 1/6 que es la probabi- 


lidad de cada uno de los sucesos. 


listado del programa: 


10 REM IRRRRRRRIRRIIOOROORRIRIRIRIRIRRRRIOIRAIOIOOOORRIRIORIOROOIIOIOIOOOIAIIIOIIIIIAAARAAA 


20 REM 

30 REM SIMULACION DEL LANZAMIENTO DE UN DADO 

40 REM 

50 REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
60 REM 


70 REM RARO III 
100 PRINT 

110 PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N ="; 
120 INPUT N 

130 PRINT 

140 RANDOMIZE 

150 FOR I=1 TO N 

160 A=INT(RNDX6+1) 

170 PRINT A, 

180 ON A GOTO 190,200,210,220,230,240 

190 F(1)=F(1)+1:GOTO 250 

200 F(2)=F(2)+1:GOTO 250 

210 F(3)=F(3)+1:GOTO 250 

220 F(4)=F(4)+1:GOTO 250 

230 F(5)=F(5)+1:GOTO 250 

240 F(6)=F(6)+1:GOTO 250 

250 NEXT 1 

260 PRINT 

270 PRINT "SUCESO", "FREC. ABSOLUT","FREC.RELAT" 
280 PRINT "ARIAS RIO, RIOR 
290 FOR J=1 TO 6 

300 PRINT "CARA"3J, F(J).F(J)/N 

310 NEXT J 

320 END 
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ejercicios resueltos: 


Loss lanza 200 veces un dado equilibrado, calcular las frecuencias 
absolutas y relativas de cada uno de los seis resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =? 200 


1 3 1 2 2 3 4 5 2 6 
1 3 3 1 E] Ss 5 2 1 5 
5 4 6 6 ó 4 4 2 1 4 
6 6 2 4 4 2 1 5 1 4 
1 6 4 2 6 1 1 3 6 ó 
6 2 6 E] 2 2 1 2 6 4 
3 2 5 6 2 3 4 5 1 3 
6 5 4 1 5 5 ó 6 2 1 
4 4 5 1 2 4 2 1 4 5 
6 5 6 5 6 2 4 6 ó 3 
2 3 5 1 4 6 4 3 5 5 
6 4 5 3 1 5 2 6 3 4 
3 5 2 1 7) 3 1 4 1 ó 
3 6 3 (=) 5 4 3 2 5 E] 
3 1 6 4 Z 3 4 3 5 1 
6 3 5 6 5 6 1 2 1 6 
2 1 5 3 2 4 2 3 1 5 
6 4 6 3 4 5 3 4 2 4 
3 1 3 1 5 3 6 2 3 3 
4 3 1 Ss 5 4 1 1 1 3 
SUCESO FREC.ABSOLUT FREC.RELAT 
IA IRRIICICIIOAARAR ES 
CARA 1 34 .17 

CARA 2 29 «145 

CARA 3 33 «165 
CARA 4 32 «16 

CARA 5 35 «175 
CARA 6 37 «185 


2. Se lanza 100 veces un dado equilibrado, calcular las frecuencias ab 
solutas y relativas de cada uno de los seis resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =? 100 


DONNA roo 
a e 
ReNrrrdsno 
PDONNAINNNNOr 
-rNONrNro 
bauiordrr»o0o 
O0O2U0ABWrna 
DOAONryrpsoud 
de Ad NN. Od0ddWdn y 
BbBUgIaAaaNar-- 
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SUCESO FREC.ABSOLUT FREC.RELAT 
IA IICA ES 
CARA 1 22 .22 
CARA 2 18 .18 
CARA 3 15 «15 
CARA 4 13 .13 
CARA 5 13 «13 
CARA é 19 .19 


LANZAMIENTO DE DOS DADOS (SUMA DE PUNTOS) 


introducción: 


te 


Este programa sirve para simular el experimento aleatorio consisten 
en el lanzamiento N veces de dos dados, anotando los resultados obteni- 


dos en las dos caras superiores, este resultado se expresa como un par or- 


denado de manera que el primer elemento del par es el resultado del primer 


dado y el segundo elemento del par es el resultado del segundo dado. 


El programa además efectua el recuento para expresar las frecuencias 


absolutas y relativas de cada uno de los valores de la suma de los puntos 


obtenidos en las caras de los dados. 


Obsérvese que si el número de lanzamientos es muy grande la mayor 


frecuencia relativa corresponderá a la suma 7 que se puede obtener de las 
siguientes formas: (1,6), (2,5), (3,4), (4,3), (5,2), (6,1), en cambio las 
menores frecuencias relativas corresponderán a la suma 2 y a la suma 12 


que solo se pueden obtener de una forma (1,1), (6,6). 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
105 
110 
120 
130 
140 
150 
160 
170 


REM IRRADIA 
REM 


REM SIMULACION DEL LANZAMIENTO DE DOS DADOS 

REM 

REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
REM 

REM DE LA SUMA DE LOS PUNTOS DE LAS CARAS 

REM 


REM RRA 
PRINT 

DIM F(12) 

RANDOMIZE 

PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N ="; 

INPUT N 

PRINT 

FOR I=1 TO N 

A=INT(RNDX6+1) 

B=INT (RNDX6+1) 
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180 PRINT "("5A3","3B3")", 

190 S=A+B 

200 FOR J=2 TO 12 

210 IF S=J THEN GOTO 230 

220 NEXT J 

230 F(J)=F(J)+1 

240 GOTO 250 

250 NEXT 1 

260 PRINT 

270 PRINT "SUMA", "FREC.ABSOLUT", "FREC.RELAT" 
280 PRINTS IIA RR 
290 FOR J=2 TO 12 

300 PRINT — J,F(J),F(J)/N 

310 NEXT J 

320 END 


ejercicios resueltos: 


1. Se lanzan 100 veces dos dados y se suman los valores obtenidos en 
cada una de sus caras. Calcular las frecuencias absolutas y relativas de 
cada uno de los resultados posibles. 

SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =? 100 
(6,6) (6,5) (6,4) (4,49) (4,2) 
(2,12) (4,6) E O E (5.6) (6,5) 
(5,5) (5,2) Gi. 39 (5.6) (2,3) 
(6.4) (6, 1) (Za. 4) k Lo 3 (.1 5 6: 3 
(94,3) (5,5) (5,5) (3,6) (4,4) 
(1.494) (5,949) (3,1) (2.31) (2,6) 
(3,2) 66.6) (6,494) (6,2) (1,5) 
(3,3) (3,1) (1,3) (3,1) (5,1) 
(4,2) (CS . 3 1 (5,5) ($. 1) (1.2) 
(2,494) (24 3) (1,6) (E O! (1,5) 
(3,2) (Cd. £ 2 (6,5) (4,49) (1,2) 
(4,1) (Ll o2) (1,3) (1,5) ( L , t ) 
(1,3) (3.1) (1,5) (5,1) (1. 2.) 
(3,9) (5,2) (2,6) (Be 3 Y (4,4) 
(4,5) (2. 6 3 (5,9) (1,3) (4,1) 
(4,5) cd: 47 (4,1) (4,4) (5,3) 
(4,6) (3.1) A (4.1) (4,49) 
(5,4) (4,35) (3,6) (6.1) (3.1) 
(1,5) (2,45) (3.1) (SS. 2) (S.2) 
(1,1) (6,15) (3. 6) (5.5) E 
suma FREC. ABSOLUT FREC.RELAT 
ANA ES IAN 

2 3 .03 

3 5 .05 

4 12 «12 

5 14 .14 

6 16 .1ó6 

? 10 .1 

8 13 «13 

9 9 .09 

10 10 .1 

11 6 .06 


12 2 .02 


LANZAMIENTO DE TRES DADOS (SUMA DE PUNTOS) 


introducción: 


Este programa sirve para simular el experimento aleatorio consisten 
te en el lanzamiento de N veces 3 dados, el resultado se expresa en forma 
de terna ordenada. Además se efectua el cálculo de las frecuencias absolu- 
tas y relativas del suceso suma de los puntos obtenidos en las caras de los 
tres dados, esta suma oscila de 3 (1,1,1) a 18 (6.6.6). 


listado del programa: 


10 REM RIIIE RIIIE A 
20 REM 


30 REM SIMULACION DEL LANZAMIENTO DE TRES DADOS 

40 REM 

50 REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
60 REM 

70 REM DE LA SUMA DE LOS FUNTOS DE LAS CARAS 

£0 REM 


A EE A 
100 PRINT 

105 DIM F(18) 

110 RANDOMIZE 

120 PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N ="; 
130 INPUT N 

140 PRINT 

150 FOR I=1 TO N 

160 A=INT(RNDX6+1) 

170 B=INT(RNDX6+1) 

175 C=INT(RNDX6+1) 

180 PRINT "("3A3","5B3","5053")", 

190 S=A+B+C 

200 FOR J=3 TO 18 

210 IF S=J] THEN GOTO 230 

220 NEXT J 

230 F(J)=F(J)+1 

240 GOTO 250 

250 NEXT I 

260 PRINT 

270 PRINT "SUMA", "FREC.ABSOLUT", "FREC.RELAT" 
280 PRINT "RRE" ESOO, ICAA 
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290 FOR J=3 TO 18 

300 PRINT — J,F(J),F(J)/N 
310 NEXT J 

320 END 


ejercicios resueltos: 


E, Se lanzan 60 veces tres dados equilibrados. Se pide: expresar el re- 
sultado obtenido, y calcular las frecuencias absolutas y relativas de cada 
uno de los sucesos consistentes en la suma de los puntos obtenidos en las 
caras de los tres dados. 

SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N =? 60 

(ds Eat) (5,13.,6) tos ii. id) 0 ES A ct6,.6. 3) 
(516,3) (4:53: 4) (1,6,5) (iZ 4 6) (5,4,.72) 
(4,5,5) (2.2 SÍ (5.6.3) (6,4,4) (1,6.5) 
E (5,5,4) (cds 2) td. 6.62 (5,3,5) 
(3.2.2) (2,6,5) CABAS (4,2,6) E E E 
(2,5511 (UE (6,4,12) Lin bs 39 (4,3.,5) 
(5,2,5) E (Za 60 6) (6,14, 1) tés Se 1) 
E A E A (6,112,494) E (E 
E A (52 Cs Za LN E 
idad (2,6,72) e Cas Ba de) LR 2 4d 
(5,1.,3) (5.5.6) (4,6,39) tas La 10 (COS: 
E A (415,3) UBA a. SÓ (LD Ds ad (Se Sa e 
SUMA FREC. ABSOLUT FREC.RELAT 
AAA FARSA: FAA: 

3 O o 

4 3 .05 

5 2 .033333333 

6 3 .05 

? 5 .083333333 

8 5 .083333333 

9 7 11666667 

10 6 .1 

11 5 .083333333 

12 12 .2 

13 4 066666667 

14 6 md 

15 57 016666667 

16 1 016666667 

17 o o 

18 o o 


LANZAMIENTO DE UNA MONEDA 


introducción: 


Este programa sirve para simular el lanzamiento de una moneda N ve- 
ces expresando los resultados de CARA y CRUZ según corresponda, posterior- 
mente realiza un recuento para calcular las frecuencias absolutas y relati 
vas de cada uno de los dos sucesos. 

Si el número de lanzamientos es suficientemente grande, la frecuencia 
de cada suceso tiende a 0,5 que es su probabililidad. 


listado del programa: 


10 REM FRIO: 
ZO REM 


30 REM SIMULACION DEL LANZAMIENTO DE UNA MONEDA 

40 REM 

50 REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
60 REM 


70 REM III: 
100 PRINT 

110 RANDOMIZE 

120 C=0 

130 x=0 

140 PRINT 

150 PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR ="; 
160 INPUT N 

170 PRINT 

180 FOR I=1 TO N 

190 A=INT(RND+.5) 

200 IF A=0 THEN 240 

210 PRINT "CARA", 

220 C=C+1 

230 GOTO 260 

240 PRINT "CRUZ", 

250 X=X+1 

260 NEXT 1 

270 PRINT 

280 PRINT "SUCESO", "FREC.ABSOL","FREC.RELAT" 
290 PRINT "RRA IROIAAIAAA RRA 
300 PRINT "CARA",C,C/N 

310 PRINT "CRUZ",X.X/N 

320 END 


/ 
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ejercicios resueltos: 


de Simular 200 lanzamientos de una moneda y calcular las frecuencias 
absolutas y relativas de cada uno de los dos resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=? 200 


crRUZ cruz CRUZ cruz CRUZ CRUZ CARA CARA CARA CARA 
CRUZ CARA CRUZ cruz CARA CRUZ cruz CARA CARA CARA 
CARA CARA CARA CRUZ CRUZ CARA CARA CRUZ CARA CRUZ 
cruz CARA CRUZ CRUZ CARA CRUZ CARA CARA CRUZ CARA 
CARA CARA CARA CRUZ CARA CARA CARA CARA CRUZ cruz 
CARA cruz CARA CRUZ CRUZ CARA cruz CARA CARA cruz 
CRUZ CARA CARA CRUZ CARA CARA CARA cruz cruz CARA 
CARA cruz CARA CRUZ CARA Cruz CARA CARA CARA CARA 
CRUZ CARA CARA CARA CRUZ CARA cruz CARA CARA CARA 
CcrRUZ CRUZ CRUZ CRUZ CcrRUzZ CRUZ CRUZ cruz CARA CARA 
cruz cruz cruz CRUZ CRUZ cruz CRUZ CARA cruz cruz 
CARA CRUZ CRUZ CARA CARA CARA CRUZ CARA cruz CRUZ 
CARA CARA CRUZ CRUZ CRUZ CARA CARA CRUZ cruz CARA 
CARA cruz cruz CRUZ CARA CRUZ CARA CcRrRUzZ cruz CARA 
CRUZ CRUZ CRUZ CARA CARA CARA CRUZ CARA CARA CARA 
CARA CRUZ CRUZ CARA CARA CRUZ CARA CARA cruz cruz 
CRUZ cruz CARA CARA CRUZ [e Va CARA CARA cruz CARA 
CRUZ cruz CRUZ CcrRUZ CARA cruz CARA CARA CARA CARA 
cruz CRUZ CARA CARA CARA CARA cruz CRUZ cruz CARA 
CRUZ cruz CRUZ CRUZ CRUZ cruz cruz CRUZ CARA cruz 
SUCESO FREC. ABSOL FREC.RELAT 

ANA: IONAAAAAA A ANA AAA: 

CARA 96 . 48 
cruz 104 .52 


Ze Simular 100 lanzamientos de una moneda y calcular las frecuencias 
absolutas y relativas de cada uno de los dos resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=? 100 


CRUZ CARA CARA CARA CARA CARA CARA cruz CRUZ CRUZ 
CARA CRUZ CARA CARA CARA cruz CRUZ CRUZ crRUZ CRUZ 
CARA cruz CARA CcrUzZ CRUZ cruz CRUZ cruz cruz CARA 
CRUZ cruz CARA cruz cruz CARA CARA CARA CARA CARA 
CARA cruz cruz CRUZ cruz CARA CRUZ CARA CARA CARA 
CARA CARA CRUZ CARA CRUZ CARA cruz CARA cruz CRUZ 
CRUZ CARA CARA CARA cruz CARA [e Upa cruz CARA CARA 
CARA CRUZ CARA CRUZ CARA cruz CRUZ CARA CARA CRUZ 
CARA CARA CARA CRUZ CARA CARA CARA CRUZ CARA CARA 
crUzZ CRUZ CARA CARA CARA cruz CARA cruz CRUZ cruz 
SUCESO FREC. ABSOL FREC.RELAT 

ANA: FAA: IAEA: 

CARA 52 .52 


CRUZ 48 .48 


LANZAMIENTO DE DOS MONEDAS 


introducción: 


Este programa sirve para simular el lanzamiento de N veces dos mone 
das expresando los resultados en forma de par ordenado. Posteriormente cal 
cula las frecuencias absolutas y relativas de cada uno de los resultados 
posibles. 


listado del programa: 


10 REM RRE IAIOAOAAAARAAAAAA 
20 REM 


ZO REM SIMULACION DEL LANZAMIENTO DE DOS MONEDAS 

40 REM 

50 REM CON RECUENTO DE FRECUENCIAS ABSOLUTAS Y RELATIVAS 
60 REM 


70 REM ROO OOOO OOOO 
100 PRINT 

110 RANDOMIZE 

120 C(J)=0 

130 PRINT 

140 PRINT "CUANTOS LANZAMIENTOS DESEA REALIZAR N="; 
150 INPUT N 

160 PRINT 

170 FOR I=1 TO N 

180 A=INT(RND*X4+1) 

190 IF A=1 PRINT "(C,C)", 

200 IF A=2 PRINT "(C,X)", 

210 IF A=3 PRINT "(X,C)", 

220 IF A=4 PRINT "(X,X)", 

230 FOR J=1 TO 4 

240 IF A=J THEN GOTO 260 

250 NEXT J 

260 C(J)=C(J)+1 


270 NEXT 1 

280 PRINT 

290 PRINT " SUCESO", "FREC.ABSOL","FREC.RELAT" 
IT EE 
310 PRINT "CARA-CARA" ,C(1), C(1)/N 

320 PRINT "CARA-CRUZ" ,C(2), C(2)/N 

330 PRINT "CRUZ-CARA" ,C(3), C(3)/N 

340 PRINT "CRUZ-CRUZ" ,C(9), C(9)/N 


350 END 
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ejercicios resueltos: 


1. Simular 200 lanzamientos de dos monedas, calculando las frecuencias 
absolutas y relativas de cada uno de los resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=7? 200 


(0,X) (Xx,C) (C0,X) (x,C) (x,C) (X,X) (C,C) (C,C) (X,X) (C,Xx) 
(0,X) (x,C) (C,C) (C,X) (C,C) (x,C) (x,0) (X.X) (x.C) (X4C) 
(C0,X) (X,X) (C,C) Xx,C) (C,C) (x,C) (C,C) (X,X) (C,X) (C,X) 
(x,C) (C0,X) (XX) (x,C) (C,X) (C.X) (C,X) (C.,X) (X.X) (XX) 
(X,C) (x,C) (C0,X) (C,C) (x,C) (C,C) (C.C) (C.X) (XX) (x,C) 
(x,X) (Xx,C) (X,X) (C,C) (X,C) (C0.X) (C.C) (X,X) (x,C) (C.C) 
(X,X) (X,X) (0,1%) (C,C) (C,C) (C.X) (XX) (C,C) (XX) (XX) 
(0,C) (C,C) (Xx,C) (x,C) (X,C) (C,X) (X,X) (C,C) (Xx,C) (XX) 
(X,X) (X,X) (C0,X) (x,C) (X,X) (0,0) (X,C0) (C,C) (C,C) (C,C) 
(C,X) (C.X) (C,C) (X,X) (C,C) (C,X) (C.X) (C,X) (Xx,C) (Xx,C) 
(Xx,C) (C,X) (C,C) (C,C) (X,X) (C,C) (C,C) (C.X) (C,C) (XX) 
(x,C) (C,X) (C0,C) (X,X) (C,C) (C,C) (C,C) (Xx,C0) (Xx,C) (C,C) 
(XX) (x,0) (X,X) (Xx,C) (X,X) (X.X) (X,X) (C,C) (X,X) (C,C) 
(C0,C) (XX) (C,C) (C,C) (C,C) (C,X) (x,C) (C,C) (C0,X) (X,X) 
(C,X) (C,C) (C,C) (C,C) (XX) (C,X) (x,C) (C,C) (C,C) (C,C) 
(C,C) ¡ES (C0,X) (C,C) (x,C0) (X,X) (C0,X) (C,C) (x,C) (XX) 
(C.X) (C,C) (C,C) (XxX) (x,C0) (C,C) (C,C) (X.X) (C,C) (C,C) 
(Xx,C0) (X.X) (XX) (X,X) (C.X) (x,C) -(0,C) (C,X) (C0,X) (X4C) 
(C0,C) (x,C) (X,X) (X,X) (C,C) (XxX) (Xx,C) (x,C) (C,C) (C,X) 
(X,X) (C0,X) (C0,X) (X,X) (x,C) (x,C0) (C0,X) (C0.X) (x,C) (X,X) 
SUCESO FREC. AESOL FREC.RELAT 

AMARA OAK AAA ES 

CARA-CARA él .305 

CARA-CRUZ 43 «215 

CRUZ-CARA 47 .235 

CRUZ-CRUZ 49 .245 


Le Simular 40 lanzamientos de dos monedas, calculando las frecuencias 
absolutas y relativas de cada uno de los resultados posibles. 
SOLUCION: 


CUANTOS LANZAMIENTOS DESEA REALIZAR N=? 40 


(C4%x) (X,X) (x,C) (C,C) (C,X) (C,C) (Xx,X) (c,C) (x,C) (C,C) 
(C,C) (X,X) (C,C) (C,C) (C,X) (x,0) (XX) (XX) (C,C) (C0,X) 
(C,C) (XX) (C0,X) (C,C) (x,.C) (C,X) (XX) (C.X) (C,C) (X,X) 
(X,C) (C,X) (X,X) (x,C) (X.X) (C0,X) (X,C) (x,C) (C,X) (C,C) 
SUucEso FREC. ABSOL FREC.RELAT 

AAAAKAA ION: ES 
CARA-CARA 12 .3 

CARA-CRUZ 10 .25 
CRUZ-CARA 8 .2 


CRUZ-=CRUZ 10 .25 


EXTRACCIONES SUCESIVAS CON REEMPLAZAMIENTO 


DE CARTAS DE UNA BARAJA 


introducción: 


Este programa sirve para simular extracciones sucesivas con reempla- 


zamiento de cartas de una baraja española. Entre las lineas 119 y 250 se 


realiza la composición de la baraja, siendo las lineas siguientes para si- 


mular la extracción con reemplazamiento. Obsérvese que al tratarse de ex- 


tracciones con reemplazamiento pueden obtenerse cartas repetidas. 


listado del programa: 


10 

20 

30 

40 

Eo) 

60 

70 

100 
110 
119 
120 
130 
140 
150 
160 
170 
130 
190 
200 
210 
220 
230 
240 
250 
259 
260 
270 
280 
290 
300 


REM III 
REM 


REM SIMULACION DE EXTRACCIONES SUCESIVAS 

REM 

REM CON REEMPLAZAMIENTO DE CARTAS DE UNA BARAJA ESPANOLA 
REM 


REM III IICA 
PRINT 

RANDOMIZE 

REM - COMPOSICION DE LA BARAJA - 
DIM N$(10),P$(4),C$(10,49) 

FOR I=1 TO 10 

READ N$(I) 

NEXT 1 

FOR J=1 TO 4 

READ P$(J) 

NEXT J 

FOR I=1 TO 10 

FOR J=1 TO 4 

C$(1,J)=N$(1)+" DE "+PS$(J) 

NEXT J 

NEXT I 


DATA AS,DOS, TRES, CUATRO, CINCO, SEIS, SIETE,SOTA, CABALLO, REY 
DATA OROS, COPAS, ESPADAS, BASTOS 

REM - EXTRACCIONES SUCESIVAS CON REEMPLAZAMIENTO - 

PRINT "CUANTAS CARTAS DESEA EXTRAER L ="3 

INPUT L 

PRINT 


FOR K=i TO L 
I=INT(RNDX10+1) 


214 SIMULACION DE EXPERIMENTOS ALEATORIOS 


310 J=INT(RNDX4+1) 
320 PRINT C$(1,J) 
330 NEXT K 

340 END 


ejercicios resueltos: 


Asma la extracción con reemplazamiento de 15 cartas de una bara- 
ja española. 
SOLUCION: 


CUANTAS CARTAS DESEA EXTRAER L =? 15 


CABALLO DE COPAS 
DOS DE BASTOS 
REY DE OROS 

TRES DE BASTOS 
DOS DE ESPADAS 
SOTA DE OROS 
TRES DE ESPADAS 
TRES DE OROS 
CINCO DE ESPADAS 
TRES DE COPAS 
TRES DE COPAS 
SIETE DE BASTOS 
REY DE COPAS 
SEIS DE OROS 
TRES DE OROS 


yA Simúlese la extracción con reemplazamiento de 7 cartas de una bara- 
ja española. 
SOLUCION: 


CUANTAS CARTAS DESEA EXTRAER L 


2 A 


DOS DE BASTOS 
SEIS DE BASTOS 
SEIS DE BASTOS 
TRES DE BASTOS 
TRES DE COPAS 
DOS DE COPAS 
REY DE OROS 


3. Simúlese la extracción con reemplazamiento de 5 cartas de una bara- 
ja española. 
SOLUCION: 


CUANTAS CARTAS DESEA EXTRAER L 


?S 


TRES DE OROS 
AS” DE BASTOS 
SOTA DE COPAS 
SOTA DE BASTOS 
SEIS DE ESPADAS 


E 


XTRACCIONES SUCESIVAS SIN REEMPLAZAMIENTO 
DE CARTAS DE UNA BARAJA 


introducción: 


Este programa sirve para simular extracciones sucesivas sin reempla 


zamiento de cartas de una baraja. En esencia es idéntico al anterior, uni- 


camente hay que tener en cuenta en la linea 320 que si una carta ha sido 


ya 


extraida ha de ser apartada pues ya no puede ser extraida nuevamente. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
119 
120 
130 
140 
150 
160 
170 
180 
190 
200 
z10 
220 
230 
240 
250 
259 
260 
270 
280 
290 
300 
310 


REM RICCI AOS 
REM 


REM SIMULACION DE EXTRACCIONES SUCESIVAS 

REM . 

REM SIN REEMPLAZAMIENTO DE CARTAS DE UNA BARAJA ESPANOLA 

REM ; 
REM RIO OOOO OOOO OOOO 


PRINT 

RANDOMIZE 

REM - COMPOSICION DE LA BARAJA 
DIM N$(10),P$(94),C$(10,4) 

FOR I=1 TO 10 

READ N$(I1) 

NEXT I 

FOR J=1 TO 4 

READ P$(J) 

NEXT J 

FOR I=1 TO 10 

FOR J=1 TO 4 

C$(1,J)=N$(1)+" DE "+PS(J) 
NEXT J 

NEXT I 

DATA AS,DOS, TRES, CUATRO, CINCO, SEIS, SIETE, SOTA, CABALLO, REY 


DATA OROS, COPAS, ESPADAS, EASTOS 

REM - EXTRACCIONES SUCESIVAS CON REEMPLAZAMIENTO - 
PRINT "CUANTAS CARTAS DESEA EXTRAER L ="; 

INPUT L 

PRINT 

FOR K=1 TO L 


I=INT(RNDX10+1) 
J=INT(RNDX4+1) 
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320 IF C$(1,J)="" THEN GOTO 300 
330 PRINT C$(1,J) 

340 C$(1,J)="" 

250 NEXT K 

360 END 


ejercicios resueltos: 


1. Simúlese la extracción sin reemplazamiento de 18 cartas de una bara 
ja española. 
SOLUCION: 


UANTAS CARTAS DESEA EXTRAER L =? 13 


CABALLO DE OROS 
REY DE ESPADAS 
CUATRO DE OROS 
SOTA DE COPAS 

AS DE COPAS 
SOTA DE ESPADAS 
CABALLO DE ESPADAS 
SIETE DE OROS 
TRES DE BASTOS 
CINCO DE ESPADAS 
AS DE ESPADAS 
SIETE DE COPAS 
TRES DE OROS 
SEIS DE BASTOS 
SEIS DE OROS 
SOTA DE OROS 

DOS DE ESPADAS 
DOS DE OROS 


2. Simúlese la extracción sin reemplazamiento de 10 cartas de una bara 
ja española. 
SOLUCION: 


CUANTAS CARTAS DESEA EXTRAER L =? 10 


CINCO DE COPAS 
AS DE ESPADAS 
SOTA DE OROS 

REY DE ESPADAS 
DOS DE OROS 
CINCO DE BASTOS 
CUATRO DE OROS 
AS DE BASTOS 
CINCO DE ESPADAS 
DOS DE COPAS 


MEDIDAS DE CENTRALIZACION, DISPERSION Y 


FORMA DE DISTRIBUCIONES UNIDIMENSIONALES 


DE DATOS NO AGRUPADOS 


introducción: 


Este programa sirve para calcular medidas de centralización, disper- 


sión y de forma de una distribución unidimensional de datos no agrupados. 


En la linea 210 se introducen en una variable subindicada X(I) cada 


uno de los valores de la variable estadística. Si algún X(I) es igual a ce 


ro 
la. 


entonces la media armónica no está definida y la media geométrica es nu 


Como el coeficiente de variación de una distribución estadística 


unidimensional está definido como s/x, entonces cuando x tiende a cero el 


coeficiente de variación crece indefinidamente, de manera que se trata, en 


ese caso de una medida poco fiable. 


Para valores muy próximos a cero del coeficiente de asimetría de Fi 


sher, el resultado del programa dará sesgada hacia la derecha o hacia la 


izquierda según que sea positivo o negativo, si bien se trata de distribu- 


ciones practicamente insesgadas. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
[=J0) 
90 
100 
110 
120 
130 
135 
140 
150 
160 
170 


REM III III RIA 
REM 
REM MEDIDAS DE CENTRALIZACION 
REM 
REM DE DISPERSION Y D; E: FORMA 
REM 
REM DISTRIBUCIONES UNIDIMENSIONALES DE DATOS NO AGRUPADOS 
REM 
REM III 
PRINT 

PRINT 

PRINT "NUMERO DE DATOS"; 

INPUT N 

PRINT 

DIM X(N),S(10) 

FOR J=1 TO 9 

s(J)=0 

NEXT J 
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180 
189 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
340 
349 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
499 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
440 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 


ESTADISTICA DESCRIPTIVA 


Ss(10)=1 

REM-ENTRADA DE DATOS- 

FOR I=1 TON 

PRINT "VALOR DE LA VARIABLE NUMERO "315 
INPUT X(I) 


S(1)=S(1)+X(1) 
S(2)=S(2)+X(1)2 
S(3)=S(3)+xX(1)73 
S(9)=S(9)+X(1)49 


NEXT I 


M=S(1)/N 


FOR I= 


1TON 


S(6)=8 (6) + (X(1)-M)72 
S(7)=S(7)+ (X(1)-M)*3 
S(8)=5(8)+(X(1)-M)749 
S(5)=8(5)+1/X(1) Ñ 
S5(9)=S (9) +ABS(X(I)-M) 
S(10)=S(10)*X(1I) 


NEXT I 


REM - CALCULO DE PARAMETROS - 
6=S(10)”(1/N) 


SALIDA DE RESULTADOS - 


MRRRCGORDOAREASR MEDIDAS DE CENTRALIZACION KAKXALALIRARK " 
"MEDIA ARITMETICA ="5M 


MICACOACIAAACAAARA MEDIDAS DE DISPERSION AKAL" 


TIPICA 

MEDIA 

PRIMER ORDEN RESPECTO AL ORIGEN 
SEGUNDO ORDEN RESPECTO AL ORIGEN 
TERCER ORDEN RESPECTO AL ORIGEN 
CUARTO ORDEN RESPECTO AL ORIGEN 
PRIMER ORDEN RESPECTO A LA MEDIA 
SEGUNDO ORDEN RESPECTO A LA MEDIA 
TERCER ORDEN RESPECTO A LA MEDIA 
CUARTO ORDEN RESPECTO A LA MEDIA 


"COEFICIENTE DE VARIACION 


=*3Y 
="3SQR(V) 
="5D 
="5A1 
="5A2 
="5A3 
="5A9 
="50 
="3M2 
="3M3 
="3M4 
="5C 


MBORCOCIOCACAIARAAA MEDIDAS DE FORMA IIA A 


H=N/S (5) 
Q=SAR (S (2) /N) 

U=S (6) /N 

D=S (9) /N 

A1=M 

A2=S (2) /N 

A3=S (3) /N 

A49=S(9)/N 

M2=S (6) /N 

M3=S (7) /N 

M4=S (8) /N 

C=SOR (V) /M 

Yi=M3/V" (3/2) 
Y2=M4/472 

REM - 

PRINT 

PRINT 

PRINT 

PRINT "MEDIA GEOMETRICA 
PRINT "MEDIA ARMONICA 
PRINT "MEDIA CUADRATICA 
PRINT 

PRINT 

PRINT "VARIANZA 

PRINT "DESVIACION 
PRINT "DESVIACION 
PRINT "MOMENTO DE 
PRINT "MONENTO DE 
PRINT "MOMENTO DE 
PRINT "MOMENTO DE 
PRINT "MOMENTO DE 
PRINT "MOMENTO DE 
PRINT "MOMENTO DE 
PRINT "MOMENTO DE 
PRINT 

PRINT 

PRINT 

PRINT 


"COEFICIENTE DE ASIMETRIA DE FISHER 
"(DISTRIBUCION SESGADA A LA DERECHA)" 


IFY1>0 THEN PRINT 
IFY1<0 THEN PRINT 
IFYi=0 THEN PRINT 
"COEFICIENTE DE CURTOSIS O APLASTAMIENTO 


PRINT 


="3Y1 


"(DISTRIBUCION SESGADA A LA IZQUIERDA)" 


"(DISTRIBUCION INSESGADA)" 


="3Y2 
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770 1F Y2 >3 THEN PRINT "(DISTRIBUCION LEPTOCURTICA)" 
780 IF Y2 <3 THEN PRINT "(DISTRIBUCION PLANICURTICA)" 
790 IF Y2 =3 THEN PRINT "(DISTRIBUCION MESOCURTICA)" 
800 END 


ejercicios resueltos: 


1... número de individuos muertos por cólera en un determinado pais 
por año en el trascurso de 11 meses, han sido: 
lr Vo 55 Bj 12 Bi 2 8 LL 12 Dé 
Calcular: 
a) Medias aritmética, geométrica, armónica y cuadrática. 
b) Varianza, desviación media, momentos de 1%, 2%, 3% y 4% orden respecto 
al origen y respecto a la media y coeficiente de variación. 
Cc) Coeficientes de asimetría y curtosis. 
SOLUCION: 


NUMERO DE DATOS? 11 


VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIAELE NUMERO 
VALOR DE LA VARIABLE NUMERO 


JONJNO0OAdN- 
ES E EN] 
e 
N 


VALOR DE LA VARIABLE NUMERO 12 
VALOR DE LA VARIABLE NUMERO 10 ? 12 
VALOR DE LA VARIABLE NUMERO du. PS) 


OOCCCAAARA MEDIDAS DE CENTRALIZACION AX 
MEDIA ARITMETICA = 7.6363636 


MEDIA GEOMETRICA = 5.9621665 
MEDIA ARMONICA = 4.5351657 
MEDIA CUADRATICA = 9.0453403 


FOO MEDIDAS DE DISPERSION FIAR A 


VARIANZA = 23.504132 
DESVIACION MEDIA = 4.214376 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 7.6363636 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 81.818182 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 1028.7273 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 14067.273 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA =0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 23.504132 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = 44.961683 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 1069.6425 


COEFICIENTE DE VARIACION 


Ú 


. 63487103 


TORA MEDIDAS DE FORMA IIA 


COEFICIENTE DE ASIMETRIA DE FISHER = .39457197 
(DISTRIBUCION SESGADA A LA DERECHA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 1.9362 


(DISTRIBUCION PLANICURTICA) 


220 ESTADISTICA DESCRIPTIVA 


La Se ha realizado la determinación del contenido de Calcio (Ca) en la 
sangre de 25 pacientes, obteniendose los siguientes resultados: 
8.7 9.3 10.1 9.2 9.1 9.3 9.4 8.7 8.8 8.7 9.2 8.3 


10.2 9.5 9.6 9.7 9.2 9.3 g.8 9.5 9.8 9.1 9.2 9.6 
8.4 
Calcular: 


a) Medias aritmética, geométrica, armónica y cuadrática. 

b) Varianza, desviación media, momentos de 1%, 2”, 3” y 4” orden respecto 
al origen y respecto a la media y coeficiente de variación. 

c) Coeficiente de asimetría y de curtosis. 

SOLUCION: 


NUMERO DE DATOS? 25 


VALOR DE LA VARIABLE NUMERO 1?8.2 
VALOR DE LA VARIABLE NUMERO 279.3 
VALOR DE LA VARIABLE NUMERO 357? 10.1 
VALOR DE LA VARIABLE NUMERO 4? 9.2 
VALOR DE LA VARIABLE NUMERO S 29,1 
VALOR DE LA VARIABLE NUMERO 6 ? 9.3 
VALOR DE LA VARIABLE NUMERO 27?9.4 
VALOR DE LA VARIABLE NUMERO e ? 8.2? 
VALOR DE LA VARIABLE NUMERO 9 7? 8.8 
VALOR DE LA VARIABLE NUMERO 10 ? 8.7 
VALOR DE LA VARIABLE NUMERO 11 7 2.42 
VALOR DE LA VARIABLE NUMERO 12? 28.3 
VALOR DE LA VARIABLE NUMERO 13 ? 10.2 
VALOR DE LA VARIABLE NUMERO 14 2 9.5 
VALOR DE LA VARIABLE NUMERO 15 > 9.6 
VALOR DE LA VARIABLE NUMERO 16 ? 9.7 
VALOR DE LA VARIABLE NUMERO E E 
VALOR DE LA VARIABLE NUMERO 18 ? 9.3 
VALOR DE LA VARIABLE NUMERO 19 ? 8.83 
VALOR DE LA VARIABLE NUMERO 20? 9.5 
VALOR DE LA VARIABLE NUMERO 21 ? 9.8 
VALOR DE LA VARIABLE NUMERO 22 ? %:1 
VALOR DE LA VARIABLE NUMERO 3792 
VALOR DE LA VARIABLE NUMERO 24 ? 9.6 
VALOR DE LA VARIAELE NUMERO 25 ? 8.4 


IAAMAAAAAKAKK MEDIDAS DE CENTRALIZACION IIIRAAAARAAAA 


MEDIA ARITMETICA = 9,228 

MEDIA GEOMETRICA = 9.2160328 
MEDIA ARMONICA = 9.2040395 
MEDIA CUADRATICA = 9.2399351 


IARRRIORIOCIAAARAR MEDIDAS DE DISPERSIÓN ARRRRRORORADAE 


VARIANZA = .220416 
DESVIACION MEDIA = .36512 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 9.228 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 85.3764 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 791.92356 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 7364.3668 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = .220416 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = .0021431039 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = .12760652 


COEFICIENTE DE VARIACION = .050876119 


OOOO TARIMAS CDA 


IORCOAOAACAAAAAAAR MEDIDAS DE FORMA FRIO 


COEFICIENTE DE ASIMETRIA DE FISHER = ¿020709926 
(DISTRIBUCION SESGADA A LA DERECHA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.6265558 


(DISTRIBUCION PLANICURTICA) 


3. El número de accidentes mortales diarios en una gran ciudad en nueve 
dias han sido: 6, 4, 8, Ly CA 35 34 de De Calcular: 
a) Medias aritmética, geométrica, armónica y cuadrática. 
b) Varianza, desviación media, momentos de 1%, 2%, 3? y 4% orden respecto 
al origen y respecto a la media y coeficiente de variación. 
Cc) Coeficientes de asimetría y de curtosis. 
SOLUCION: 


NUMERO DE DATOS? 9 


VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 
VALOR DE LA VARIABLE NUMERO 


Ye 


JONO0O0_aNr- 


ET E 
Ny ddgugro-s0o 


HOCOAAAAAARAR MEDIDAS DE CENTRALIZACION KAXKAKKARAKA AAA 
MEDIA ARITMETICA = 4,3333333 


MEDIA GEOMETRICA = 3.6706077 
MEDIA ARMONICA = 2.9496684 
MEDIA CUADRATICA = 4.8648398 


IARDRRAICIODOAOAA. MEDIDAS DE DISPERSION FIAR 


VARIANZA = 4,.88888829 
DESVIACION MEDIA = 1.9259259 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 4.3333333 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 23.666667 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 147 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 983,.66667 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 4.8882889 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = 2.0740:741 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 44.27%6296 
COEFICIENTE DE VARIACION = ¿510239997? 


IRRADIA MEDIDAS DE FORMA IIA A 


COEFICIENTE DE ASIMETRIA DE FISHER = .19187086 
(DISTRIBUCION SESGADA A LA DERECHA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 1.8533058 


(DISTRIBUCION PLANICURTICA) 


MEDIDAS DE CENTRALIZACION, DISPERSION Y 
FORMA DE DISTRIBUCIONES UNIDIMENSIONALES 
DE DATOS AGRUPADOS 


introducción: 


Este programa calcula las medidas de centralización, dispersión y 
de forma de una distribución unidimensional de datos agrupados. Los valor 
res de la variable estadística se introducen en una variable subindicada 
X(I) y los valores de las frecuencias absolutas se introducen en otra F (1) 


ambas en la linea 210. 
En todo lo demás el programa es análogo al anterior. 


listado del programa: 


10 REM MIRROR 
20 REM 

30 REM MEDIDAS DE CENTRALIZACION 
40 REM 

50 REM DE DISPERSION ES DE FORMA 
60 REM 

70 REM DISTRIBUCIONES UNIDIMENSIONALES DE DATOS AGRUPADOS 
So REM 

90 REM FIAR III 
100 PRINT 

110 PRINT 

120 PRINT "NUMERO DE DATOS"; 

130 INPUT L 

135 PRINT . 

140 DIM X(L),F(L),S(10) 

150 FOR J=0 TO 9 

160 S(J)=0 

170 NEXT J 

180 S(10)=1 

189 REM-ENTRADA DE DATOS- 

190 FOR I=1 TO L 

200 PRINT "VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO"; 1; 

210 INPUT X(1),F(1) 

215 S(0)=S(0)+F(I) 

220 S(1)=S(1)+F(I)XX(1) 

230 S(2)=S(2)+F(1I)XX(1)72 

240 S(3)=S(3)+F(I)XX(1)3 

250 S(4)=S(4)+F(I)XX(1)4 

260 NEXT 1 

263 N=S(0) 
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M=S (1) 


FOR I= 


/N 
1 TOL. 


S(6)=S(6)+F(I)X(X(1)-M)72 
S(7)=S(2)+F(I)X(X(1)-M)73 
S(8)=S(8)+F(I)X(X(1I)-M)74 
S(5)=S(5)+F(1)/X(1) 
S(9)=S(9)+ABS(F(I)X(X(1)-M)) 
S(10)=S(10)*X(1)*F(1) 


NEXT I 

REM - CALCULO DE PARAMETROS - 

G=S(10)”(1/N) 

H=N/S (5) 

Q=SOR (S (2) /N) 

V=S (6) /N 

D=S (9) /N 

Al=M 

A2=5(2)/N 

A3=S(3)/N 

A9=5 (4) /N 

M2=5 (6) /N 

M3=S (2) /N 

M4=S (8) /N 

C=SOR (V) /M 

Yi=M3/U"” (3/2) 

Y2=M9/V"2 

REM - SALIDA DE RESULTADOS - 

PRINT 

PRINT "RRE MEDIDAS DE CENTRALIZACION AX RK " 
PRINT "MEDIA ARITMETICA ="53M 
PRINT "MEDIA GEOMETRICA ="36 
PRINT "MEDIA ARMONICA ="3H 
PRINT "MEDIA CUADRATICA ="50 
PRINT 

PRINT MRRRREROROMARARKA MEDIDAS DE DISPERSION KXXALLXXKARLAL" 
PRINT "VARIANZA ="3V 
PRINT "DESVIACION TIPICA ="3SQR (V) 
PRINT "DESVIACION MEDIA =D 
PRINT "MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN 5 
PRINT "MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN 

PRINT "MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN 

PRINT "MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN 

PRINT "MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA 

PRINT "MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA 

PRINT "MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA 5 
PRINT "MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA ="3M49 
PRINT "COEFICIENTE DE VARIACION ="3C 
PRINT 

PRINT MIRRORS MEDIDAS DE FORMA III 
PRINT "COEFICIENTE DE ASIMETRIA DE FISHER ="3Y1 
IFY1>0 THEN PRINT "(DISTRIBUCION SESGADA A LA DERECHA)" 


IFY1<0 THEN PRINT "(DISTRIBUCION SESGADA A LA IZQUIERDA)" 
IFYi=0 THEN PRINT 


PRINT 
IF Y2 
IF Y2 
IF Y2 
END 


"(DISTRIBUCION INSESGADA)" 


"COEFICIENTE DE CURTOSIS O APLASTAMIENTO E YZ 
23 THEN PRINT "(DISTRIBUCION LEPTOCURTICA)" 
<3 THEN PRINT "(DISTRIBUCION PLANICURTICA)" 
=3 THEN PRINT "(DISTRIBUCION MESOCURTICA)" 
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ejercicios resueltos: 


1. Examinadas 150 camadas de 8 ratones, respecto del número de ellos 


con pelo liso, se obtuvo la siguiente 
n*de ratones 


abuse con pelo liso 
Calcular: en cada Camada 


n” de 
camadas 
a) Medias aritmética, geométrica 

armónica y cuadrática. 
b) Varianza, desviación típica, des- 
viación media, momentos de 1%, 2” 


3% y 4” orden respecto al origen 


1 
2 
3 
4 
5 
6 
7 
8 


y respecto a la media y coeficien 


te de variación. 


c) Coeficientes de asimetría y de 
curtosis. 
SOLUCION 


NUMERO DE DATOS? 8 


VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 1 ? 1 1 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2 ? 2 6 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 3 ? 3 13 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 4 50 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 5? 5 33 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 6 ? é 30 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 72 ? ? 17 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 8 ? 8 [o] 
ARRAARAARKAR MEDIDAS DE CENTRALIZACION IMMRRRRORRER 

MEDIA ARITMETICA = 4.7733333 

MEDIA GEOMETRICA = 4.5630981 

MEDIA ARMONICA = 4,3026909 

MEDIA CUADRATICA = 4.9531135 

AAA MEDIDAS DE DISPERSIÓN FOCA 
VARIANZA = 1.7486222 
DESVIACION TIPICA = 1.3223548 
DESVIACION MEDIA = 1,0951111 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 4.7733333 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 24.533333 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 133.57333 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 761.81333 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA =0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 1.7486222 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA =-.22595793 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 7.9334499 
COEFICIENTE DE VARIACION = .27702964 
AICA MEDIDAS DE FORMA ALA AAA AAA 
COEFICIENTE DE ASIMETRIA DE FISHER =-.097720029 
(DISTRIBUCION SESGADA A LA IZQUIERDA) 

COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.5945981 


(DISTRIBUCION PLANICURTICA) 
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Ze Las calificaciones en Matemáticas de 41 alumnos de una determinada 


clase han sido las siguientes: 

Calcular: 

a) Medias aritmética, geométrica, armónica y 
cuadrática. 

b) Varianza, desviación típica, desviación me 
dia, momentos de 1%, 2%, 3” y 4” orden res 
pecto al origen y respecto a la media y 
coeficiente de variación. 

Cc) Coeficientes de asimetría y de curtosis. 

SOLUCION: 


NUMERO DE DATOS? 9 


VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 1 ? 2 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2 ? 3 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 3 ? 4 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 5 
VARIABLE X y FRECUENCIA ABSOLUTA F' DEL DATO 5? 64 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 7? 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 7 ? 8 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 8 ? 9 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 9 ? 1 


FODOAAAAAARA MEDIDAS DE CENTRALIZACION AX 


MEDIA ARITMETICA = 4.4634146 
MEDIA GÉOMETRICA = 4,0565799 
MEDIA ARMONICA = 3.6050244 
MEDIA CUADRATICA = 4.8262494 


FOCAARAAMARARAKA MEDIDAS DE DISPERSION KK: 


VARIANZA = 3.3706127 
DESVIACION TIPICA =" 1.8359229 
DESVIACION MEDIA = 1.4991077 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 4.4634146 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 23.292683 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 136.60976 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 875.87805 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA =0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 3.3706127 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA = 2.5559699 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 30.458254 
COEFICIENTE DE VARIACION = .41132698 


FARRO MEDIDAS DE FORMA KARA: 


COEFICIENTE DE ASIMETRIA DE FISHER = ¿41304032 
(DISTRIBUCION SESGADA A LA DERECHA) ' 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.6809412 


(DISTRIBUCION PLANICURTICA) 
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3. La tabla adjunta muestra el número de semillas germinadas por placa 
y la frecuencia observada en cada caso. 


n*%de semillas 
germinadas p/plac 


frecuencia 
observad 


Calcular: 

a) Medias aritmética, geométrica, armónica y cuadrática. 

b) Varianza, desviación típica, desviación media, momentos de 1%, 2%, 3” y 
4% orden respecto a la media y respecto al origen y coeficiente de 


variación. 


c) Coeficientes de asimetría y curtosis. 
SOLUCION: 


NUMERO DE DATOS? 5 


VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 1 ? 5 30 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 2 ? 4 sel 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 3 ? 3 57 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 4 ? 2 24 
VARIABLE X y FRECUENCIA ABSOLUTA F DEL DATO 5 ? 1 7 


ARAIAAAAARAA MEDIDAS DE CENTRALIZACION HARIAN 


MEDIA ARITMETICA = 3.5175879 
MEDIA GEOMETRICA = 3.3373362 
MEDIA ARMONICA = 3.0972763 
MEDIA CUADRATICA = 3.6574423 


RAACIACCIAAAAARARA MEDIDAS DE DISPERSION FAX 
VARIANZA = 1.0034595 


DESVIACION TIPICA = 1,0017283 
DESVIACION MEDIA = ¿83967577 
MOMENTO DE PRIMER ORDEN RESPECTO AL ORIGEN = 3.5175879 
MONENTO DE SEGUNDO ORDEN RESPECTO AL ORIGEN = 13.376884 
MOMENTO DE TERCER ORDEN RESPECTO AL ORIGEN = 53.628141 
MOMENTO DE CUARTO ORDEN RESPECTO AL ORIGEN = 223.58794 
MOMENTO DE PRIMER ORDEN RESPECTO A LA MEDIA = 0 

MOMENTO DE SEGUNDO ORDEN RESPECTO A LA MEDIA = 1.0034595 
MOMENTO DE TERCER ORDEN RESPECTO A LA MEDIA =-.48574074 
MOMENTO DE CUARTO ORDEN RESPECTO A LA MEDIA = 2.8234534 
COEFICIENTE DE VARIACION = ,.28477703 


ARIACICCIAAAAARAAA MEDIDAS DE FORMA IRRORCOOOOIIA 


COEFICIENTE DE ASIMETRIA DE FISHER =-, 48323096 
(DISTRIBUCION SESGADA A LA IZQUIERDA) 
COEFICIENTE DE CURTOSIS O APLASTAMIENTO = 2.8040188 


(DISTRIBUCION PLANICURTICA) 


PARAMETROS ESTADISTICOS DE DISTRIBUCIONES 
BIDIMENSIONALES DE DATOS NO AGRUPADOS 


introducción: 


Este programa calcula parámetros estadísticos de distribuciones bi- 
dimensionales de datos no agrupados. La variable bidimensional se introdu- 
ce en la linea 220 bajo dos variables subindicadas X(1), Y(I1). 

El coeficiente de correlación lineal da la medida de la dependencia 
que existe entre las dos variables unidimensionales que componen la varia- 


ble bidimensional. 


listado del programa: 


NI EEES 
20 REM 


30 REM CALCULO DE PARAMETROS 

40 REM 

50 REM ESTADISTICOS 

60 REM 

70 REM DISTRIBUCIONES BIDIMENSIONALES DE DATOS NO AGRUPADOS 
80 REM 


A 
100 PRINT 

110 PRINT 

120 PRINT "NUMERO DE PARES DE DATOS"; 
130 INPUT N 

140 DIM X(N),Y(N),S(5) 

150 FOR J=1 TO 5 

160 S(J)=0 

170 NEXT J 

180 PRINT 

187 REM-ENTRADA DE DATOS- 

190 PRINT "INTRODUZCA LA X y LA Y DE CADA PAR" 
195 PRINT 

200 FOR I=1 TO N 

210 PRINT "X,Y DEL PUNTO"315 

220 INPUT X(1),Y(I) 

230 S(1)=S(1)+X(I) 

240 S(2)=S(2)+Y(1) 

250 NEXT I 

260 M1=S(1)/N 

270 M2=S(2)/N 

280 FOR I=1 TO N 
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AA + ————  ———— 


290 S(3)=S(3)+(X(1)-M1)72 

300 5(4)=51(49)+ (Y (1)-M2)”2 

310 S(5)=S(5)+(X(1)-M1)X(Y(1)-M2) 
320 NEXT 1 

330 V1=S(3)/N 

340 V2=S(4)/N 

350 W1=S(3)/(N-1) 

360 W2=S(4)/(N-1) 

370 C1=S(5)/N 

380 C2=S(5)/(N-1) 

390 R=C1/SOR(V1XVZ) 

399 REM. -— SALIDA DE RESULTADOS - 
400 PRINT 


410 PRINT "MEDIA ARITMETICA DE LA VARIABLE X ="3M1 
420 PRINT "MEDIA ARITMETICA DE LA VARIABLE Y ="3mM2 
430 PRINT 

440 PRINT "VARIANZA DE LA VARIABLE X ="3V1 
450 PRINT "VARIANZA DE LA VARIABLE Y ="3U2 
460 PRINT 

470 PRINT "CUASIVARIANZA DE LA VARIABLE X ="3wW1 
480 PRINT "CUASIVARIANZA DE LA VARIABLE Y ="3w2 
490 PRINT 

500 PRINT "COVARIANZA DE X,Y ="3C1 
510 PRINT "CUASICOVARIANZA DE X.Y ="3C2 
520 PRINT 

530 PRINT "COEFICIENTE DE CORRELACION LINEAL ="5R 
540 PRINT "COEFICIENTE DE DETERMINACION ="3R"2 
550 END 


ejercicios resueltos: 


L.:as calificaciones en las asignaturas de Física y Matemáticas de 9 


alumncs han sido las siguientes: 


MATEMATICAS 7.5 4.5 


FISICA 6 


Calcular los parámetros estadísticos más importantes. 
SOLUCION: 


NUMERO DE PARES DE DATOS? 9 


INTRODUZCA LA X y LA Y DE CADA PAR 

X.Y DEL PUNTO 1 ? 7.5 8.5 

X,Y DEL PUNTO 2 ? 4.5 6 

X.Y DEL PUNTO 3 ? 3.7 4 

X, Y DEL PUNTO 4 ? 2.5 2.5 

X,Y DEL PUNTO 5 ? 8.5 9 

X.Y DEL PUNTO é ? 1.5 3 

X.Y DEL PUNTO 7 ? 4.5 6 

X, Y DEL PUNTO 8 ? 5 5.5 

X.Y DEL PUNTO 9 ? 5.5 6 

MEDIA ARITMETICA DE LA VARIABLE X = 4.8 
MEDIA ARITMETICA DE LA VARIABLE Y = 5.6111111 
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VARIANZA DE LA VARIABLE X = 4.3422222 
VARIANZA DE LA VARIABLE Y = 4.3765432 
CUASIVARIANZA DE LA VARIABLE X = 4.885 

CUASIVARIANZA DE LA VARIABLE Y = 4.9236111 
COVARIANZA DE X,Y = 4.2111111 
CUASICOVARIANZA DE X,Y = 4.7375 

COEFICIENTE DE CORRELACION LINEAL = .926599542 
COEFICIENTE DE DETERMINACION = ¿23314715 


pa Los datos siguientes representan los valores de dos constantes bio- 


lógicas de 12 individuos de una cierta población: 


Calcular los parámetros estadísticos más importantes. 
SOLUCION: 


NUMERO DE PARES DE DATOS? 12 


INTRODUZCA LA X y LA Y DE CADA PAR 

X.Y DEL PUNTO 1 ? 65 es 

X.Y DEL PUNTO 2 ? 50 72 

X,Y DEL PUNTO 3 ? 55 76 

X,Y DEL PUNTO 4 7? é5 90 

X,Y DEL PUNTO 5 ? 55 es 

X,Y DEL PUNTO 6 ? 70 87 

X,Y DEL PUNTO 7 ? 65 94 

X,Y DEL PUNTO 8 ? 70 98 

X.Y DEL PUNTO 9 ? 55 sel 

X,Y DEL PUNTO 10 ? 70 95 

X.Y DEL PUNTO 11 ? 50 76 

X.Y DEL PUNTO 12 ? 50 74 

MEDIA ARITMETICA DE LA VARIABLE X = 60 

MEDIA ARITMETICA DE LA VARIABLE Y = 85 
VARIANZA DE LA VARIABLE x = 62.5 
VARIANZA DE LA VARIABLE Y = 59.5 
CUASIVARIANZA DE LA VARIABLE X = 6£8.181818 
CUASIVARIANZA DE LA VARIABLE Y = 64.909091 
COVARIANZA DE X,Y = 53.75 
CUASICOVARIANZA DE X,Y = 58.636364 
COEFICIENTE DE CORRELACION LINEAL = .88141407 


COEFICIENTE DE DETERMINACION = .77689076 


230 


3. La temperatura que ha marcado el termómetro los diferentes dias de 


la semana, 


Calcular los parámetros estadísticos bidimensionales más importantes. 
SOLUCION 


ha sido: 
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DIAS MINIMA MAX 


Lunes 
Martes 
Miercoles 
Jueves 
Viernes 
Sábado 
Domingo 


NUMERO DE PARES DE DATOS? ? 


INTRODUZCA LA X y LA Y DE CADA PAR 

X, Y DEL PUNTO 1 ? 4 19 

X.Y DEL PUNTO 2 2-2 18 

X, Y DEL PUNTO 3 2-3 21 

X.Y DEL' PUNTO 4 ? 1 13 

X.Y DEL PUNTO 5 ? 4 12 

X.Y DEL PUNTO 6 ? O 14 

X, Y DEL PUNTO 7 ? 3 22 

MEDIA ARITMETICA DE LA VARIABLE X =1 

MEDIA ARITMETICA DE LA VARIABLE Y = 17 
VARIANZA DE LA VARIABLE X = 6.8571429 
VARIANZA DE LA VARIABLE Y = 13.714286 
CUASIVARIANZA DE LA VARIABLE *X = 8 
CUASIVARIANZA DE LA VARIABLE Y = 16 
COVARIANZA DE X,Y =-2.1428571 
CUASICOVARIANZA DE X,Y =-2.5 
COEFICIENTE DE CORRELACION LINEAL =-,22097087 


COEFICIENTE DE DETERMINACION 


.048828125 


PARAMETROS ESTADISTICOS DE DISTRIBUCIONES 


BIDIMENSIONALES DE DATOS AGRUPADOS 


introducción: 


Este programa sirve para calcular parámetros estadísticos de distri 


buciones bidimensionales de datos agrupados. Tanto los valores de X e Y co 


mo 


la frecuencia absoluta del par (X, Y) se introducen bajo variables sub- 


indicadas en la linea 220. El número de pares de datos N con el que podre- 


mos operar y que dimensiona a las variables anteriores en la linea 140 de- 


penderá en cada caso de la capacidad de la memoria de su micro. 


listado del programa: 


10 
20 
30 
40 
so 
60 
70 
80 
20 
100 
110 
120 
130 
140 
150 
160 
170 
180 
189 
190 
200 
210 
220 
225 
230 
240 
250 
260 


REM OIR III RIIIE III III III 
REM 


REM CALCULO DE PARAMETROS 

REM 

REM ESTADISTICOS 

REM 

REM DISTRIBUCIONES BIDIMENSIONALES DE DATOS AGRUPADOS 

REM 

REM III O III III III III III 


PRINT 

PRINT 

PRINT "NUMERO DE PARES DE DATOS"; 
INPUT L 


DIM X(L),Y(L),F(L),5(6) 
FOR J=1 TO 6 

S(J)=0 

NEXT J 

PRINT 

REM-ENTRADA DE DATOS- 


PRINT "INTRODUZCA LA X , LA Y, Y LA FRECUENCIA ABSOLUTA DE CADA PAR" 
FOR I=1 TO L 

PRINT "X,Y,F DEL PAR"31; 

INPUT X(1),Y(1),F(I) 

S(6)=S(6)+F(1) 

S(1)=S(1)+F(1)XX(1) 

S(2)=S(2)+F(1)XY(1) 

NEXT I 

M1=S(1)/S(6) 
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270 M2=S(2)/S(6) 

280 FOR I=1 TO L 

290 S(3)=S(3)+F(I)X(X(I)-M1)72 
300 S(94)=S(4)+F(I)X(Y(1)-M2)72 
310 S(5)=S(5)+F(I)A(X(I)-M1)X (Y (1)-M2) 
320 NEXT I 

330 V1=S(3)/S(6) 

340 V2=5(4)/S(6) 

350 W1=S(3)/(S(6)-1) 

360 W2=S(4)/(S(6)-1) 

370 C1=S(5)/S(6) 

380 C2=S(5)/(S(6)-1) 

390 R=C1/SOR(V1XVZ) 

399 REM - SALIDA DE RESULTADOS - 


400 PRINT 

410 PRINT "MEDIA ARITMETICA DE LA VARIABLE X ="3M1 
420 PRINT "MEDIA ARITMETICA DE LA VARIABLE Y ="3M2 
430 PRINT 

440.PRINT "VARIANZA DE LA VARIABLE X ="5V1 
450 PRINT "VARIANZA DE LA VARIABLE Y ="3V2 
460 PRINT 

470 PRINT "CUASIVARIANZA DE LA VARIABLE X ="3w1 
480 PRINT "CUASIVARIANZA DE LA VARIABLE Y ="3w2 
490 PRINT 

500 PRINT "COVARIANZA DE X,Y ="3C1 
510 PRINT "CUASICOVARIANZA DE X,Y ="3C2 
520 PRINT 

530 PRINT "COEFICIENTE DE CORRELACION LINEAL ="5R 
540 PRINT "COEFICIENTE DE DETERMINACION ="3R*2 
550 END 


ejercicios resueltos: 


1. Se han estudiado 35 familias respecto al número de hijos y de hijas 
que tienen, obteniendose los siguientes resultados: 


Calcular los parámetros estadísticos más importantes. 
SOLUCION: 


NUMERO DE PARES DE DATOS? 10 


INTRODUZCA LA X , LA Y, Y LA FRECUENCIA ABSOLUTA DE CADA PAR 
X,Y,F DEL PAR 1 7? 0 o 5 
X,Y.F DEL PAR 2 ? 1 o 3 
X,Y,F DEL PAR 37? 0 1 4 
X.Y.F DEL PAR 4 ? 1 1 5 
Ke Yi F DEL PAR 5 7? 2 1 4 
X,Y,F DEL PAR 6 ? 1 2 6 
X.Y «F DEL PAR 2? ? 2 2 4 
X.Y, F DEL PAR 8 ? 3 2 2 


X.Y 
X.Y, 


«F DEL PAR 9 ? 2 
F DEL PAR 10 ? 3 


3 
3 
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MEDIA ARITMETICA DE LA VARIABLE X 
MEDIA ARITMETICA DE LA VARIABLE Y 


VARIANZA DE LA VARIABLE X 
VARIANZA DE LA VARIABLE Y 


CUASIVARIANZA DE LA VARIABLE X 
CUASIVARIANZA DE LA VARIABLE Y 


COVARIANZA DE X,Y 


CUASICOVARIANZA DE X,Y 


COEFICIENTE DE CORRELACION LINEAL 


COEFICIENTE DE DETERMINACION 


*'1.1714286 
1.2285714 


.8277551 
.7477551 


. 85210084 
.2697479 


. 30367347 
.51848739 


.6402041 
. 40986129 
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Le Las calificaciones de 22 alumnos en Matemáticas y Física han sido 


las siguientes: 


MATEMAT. 
FISICA 


NUMERO DE PARES 


NTRODUZCA LA 


I 

X,Y,F DEL 
X,+Y,F DEL 
X,Y,F DEL 
X,Y,F DEL 
X,Y,F DEL 
X,Y,F DEL 
X,Y,F DEL 


MEDIA ARITMETICA DE LA VARIABLE X 
MEDIA ARITMETICA DE LA VARIABLE Y 


VARIANZA DE LA VARIABLE X 
VARIANZA DE LA VARIABLE Y 


CUASIVARIANZA DE LA VARIABLE X 
CUASIVARIANZA DE LA VARIABLE Y 


PAR 
PAR 
PAR 
PAR 
PAR 
PAR 
PAR 


N0u0bdNrx 


DE DATOS? 7? 


JIDISYSYA 


COVARIANZA DE X,Y 
CUASICOVARIANZA DE X,Y 


COEFICIENTE DE CORRELACION LINEAL 
COEFICIENTE DE DETERMINACION 


hs 
5 
5 
3 
? 
7 
9 
3 


NrNazsao 


5 3 3 5 Y, 9 1 

5 5 3 7 7 9 3 

6 4 4 3 2 l 2 
Calcular los parámetros estadísticos más importantes. 


SOLUCION 


LA FRECUENCIA ABSOLUTA DE CADA PAR 


4.2727273 
5.0909091 


3.47107449 


= 2.7190083 


3.6363636 
2.8484848 


2.6115702 
2.7359307 


.85008918 
.72265161 


PROBABILIDAD TOTAL 


introducción: 


Este programa calcula la probabilidad "total de un suceso B conoci- 
das las probabilidades a priori p(a,) de cada uno de los sucesos que compo 
nen el sistema completo de sucesos del experimento y las verosimilitudes 


p(B/A,). 
El teorema de la probabilidad total establece que: 


n 
p(B) = 2 


E, PA) -P(B/a,) 


listado del programa: 


10 REM IRRRRRIAOIOCORIRIRIIOIIAIOIOIOIIIIIOIIOROIOIOIOIOOOIIOIIOIOIOOIIOIOIIOIOIIOIOIIOIIIIIAA 


20 REM 

30 REM PROBABILIDAD TOTAL 

40 REM 

50 REM IRRSICRIOAOIOAIOOIOIOIOIIOIOIRIIIIIOIAIIIORIRIIIOIOIIOORIRIIOIOIRIRIRIRIIOOORIOOIOOIOIOIOIIAAA 
100 PRINT 


110 PRINT "NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO”; 

120 INPUT N 

130 PRINT 

140 DIM P(N),E(N) 

150 S=0 

159 REM - ENTRADA DE DATOS - 

160 PRINT "INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL su- 
CESO B CONDICIONADA A Ai, P(B/Ai)" 

169 REM 

170 PRINT 

180 FOR I=1 TO N 

190 PRINT "P(A"31;5") 
200 INPUT P(I) 

209 REM - SALIDA DE RESULTADOS - 
210 PRINT "P(B/A"313") =" 5 

220 INPUT B(I) 

230 PRINT 

240 S=S+P(I)XB(I) 

250 NEXT I 

259 REM - SALIDA DE RESULTADOS - 
260 PRINT 
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270 PRINT "LA PROBABILIDAD TOTAL DEL SUCESO B ES ="3S 
280 END 


ejercicios resueltos: 


Lira completo de sucesos de un experimento aleatorio está 
formado por 6 sucesos de los que se sabe: 


p(a,) = 0,2 p(B/A,) = 0,24 plas) = 0,1 p(B/A,) = 0,2 
p(A,) = 0,3 p(B/A,) = 0,65 p(as) = 0,1 p(B/Ag) = 0,4 
p(Az) = 0,2 p(B/A3) = 0,35 p(A¿) = 0,1 p(B/A¿) = 0,25 


Se desea conocer la probabilidad total del suceso B. 
SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 6 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO E CON- 
DICIONADA A Ai, P(B/Ai) 


P(A 1) => .2 
P(B/A 1 ) =2 ,24 
P(AZ2) =?2 .3 
P(B/A 2.) =? ,65S 
P(A 3) =? .2 
P(B/A 3 ) =?2 ¿35 
P(A 49) => .1 
P(B/A 4 ) =?2 
P(AS5S) => ,1 
P(B/A 5) =? ,4 
P(A6) =? .1 
P(B/A 6 ) =7? ,25 
LA PROBABILIDAD TOTAL DEL SUCESO B ES = .398 


Ze En una población y en un determinado momento, | se conocen las proba- 
bilidades de que un individuo tenga las enfermedades A, B y C y de que es- 
té sano, siendo estas las siguientes: 

p(A)= 0,02 P(B) = 0,05 p(C) = 0,03 P(S) = 0,9 
Consideremos un síntoma determinado representado por el símbolo D 
Las probabilidades de que se presente dicho síntoma en cada caso anterior 
son: p(D/A)=0,99 p(D/B) = O,1 p(D/C) = 0,4 p(D/S) = 0,01 


Hallar la probabilidad de que se presente el síntoma D 
SOLUCION: 
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A AA A a 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 4 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai, P(B/Ai) 


P(A 1) =? .,02 
P(D/A 1 ) =? .99 
P(A 2) =? .05 


P(D/A 2) =? .1 


P(A 3) =P? ¿03 
P(D/A 3.) =? .4 
P(A 4) =2 .92 
P(D/A 4 ) =? ,O1 


LA PROBABILIDAD TOTAL DEL SUCESO D ES = .0458 


3. Un sistema completo de un experimento aleatorio está formado por 
los sucesos As» Ar y Ar tales que sus probabilidades son: p(a,) = 0,3 
p(a,) =0,2 y p(az3) = 0,5. Sea B un suceso cualquiera para el que se cono 
cen las probabilidades: p(B/A,) = 0,25, p(B/A,) = 0,5, p(B/A3) = 0,5 
Hallar la probabilidad total del suceso B. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 3 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B COND 
ICIONADA A Ai, P(B/Ai) 


P(A 1 ) =?2 .3 
P(B/A 1 ) =?2 .25 
P(A 2) =?2 .2 
P(B/A 2) =2 .5 
P(A 3) =2 .5 
P(B/A 3) =?2 .5 


LA PROBABILIDAD TOTAL DEL SUCESO B ES = .425 


PROBABILIDAD BAYESIANA 


introducción: 


Este programa calcula las probabilidades a posteriori que se obtie 
nen como aplicación del teorema de Bayes, para ello es necesario introducir 
en la linea 200 las probabilidades a priori p(a;) y en la linea 220 las ve 


rosimilitudes p(B/A;). 


El teorema de Bayes establece que: 
p(A,) p(B/A,) 


n 
¡E¡P(A¿) P(B/A,) 


p(a,/B) = 


listado del programa: 


10 REM ISORA: 
20 REM 

30 REM PROBABILIDAD BAYESIANA 

40 REM 

TN 
100 PRINT 

110 PRINT "NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO"; 

120 INPUT MN 

130 PRINT 

140 DIM P(M),B(N) 

150 S=0 

159 REM - ENTRADA DE DATOS - 

160 PRINT "INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBAEILIDAD DEL Ssu- 
CESO B CONDICIONADA A Ai, P(B/Ai)" 

169 REM 

170 PRINT 

180 FOR I=1 TON 

190 PRINT "P(A"51;") ="; 

200 INPUT P(I) 

210 PRINT "P(B/A"5313") =" ; 

220 INPUT B(1) 

230 PRINT 

240 S=S+P(I)XB(I) 

250 NEXT 1 

259 REM - SALIDA DE RESULTADOS - 

260 PRINT 


238 CALCULO DE PROBABILIDADES 


270 PRINT "PROBABILIDADES A POSTERIOR 1” 
280 PRINT 

290 REM - OBTENIDAS MEDIANTE EL TEOREMA DE BAYES - 

300 FOR I=1 TO N 

310 PRINT "LA PROBABILIDAD DE (A";31;3"/B) ="3P(1)XB(1)/S 

320 NEXT 1 

330 END 


ejercicios resueltos: 


Es En una población se conocen las probabilidades de que un individuo 
tenga las enfermedades A, B, y C. y de que esté sano. siendo estas las si- 
guientes: p(A) = 0,02; p(B) = 0,05; p(C) = 0,03; p(S) = 0,9 

Consideremos un síntoma, representado por el símbolo D. Las probabi 
lidades de que se presente dicho síntoma en cada caso son: 
p(D/A) = 0,99; p(D/B) = 0,4; p(D/C) = 0,1; P(D/S) = O,O1 


Examinado un individuo, se observa que presenta el citado síntoma 
Hallar las probabilidades de que padezcan cada una de las tres enfermeda- 
des o de que esté sano. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 4 


INTRODUZCA LA PROBABILIDAD A PRIORI RFP(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1) =? ¿02 

P(B/A 1 ) =? .99 

P(A 2) =?2 ¿05 

P(B/A 2) =?2 .4 

P(A 3) =? ¿03 

P(B/A 3) =? ,1 

P(A 4) =?2 ,9 

P(E/A 4 ) =? .O1l 
PROBABILIDADES A POSTERIOR II 
LA PROBABILIDAD DE (A 1 /B) = .38223938 
LA PROBABILIDAD DE (A 2 /B) = .38610039 
LA PROBABILIDAD DE (A 3 /BE) = .057915058 
LA PROBABILIDAD DE (A 4 /B) = .17374517 


e En un hospital especializado en enfermedades del torax, ingresan un 
promedio de 50% de enfermos con bronquitis, 30% con neumonía y 20% con gri 


pe. La probabilidad de curación completa de cada una de estas enfermedades 
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es respectivamente O,7; 0,8; O,9. 

Un enfermo ingresado en el hospital ha sido dado de alta completa- 
mente sano. Hallar la probabilidad de que el enfermo ingresara con bronqui 
tis. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 3 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1) =2.5 

P(B/A 1 ) =?2 ,7? 

P(A2) =2 .3 

P(B/A 2) =? ,8 

P(A 3) => .2 

P(B/A 3 ) =?2 ,9 

PROBABILIDADES A POSTERIORI 
LA PROBABILIDAD DE (A 1 /B) = .45454545 

LA PROBABILIDAD DE (A 2 /B) = .31168831 

LA PROBABILIDAD DE (A 3 /B) = .23376623 


3. Se cree que un individuo ha podido contraer las enfermedades A o B 
con probabilidades 0,25 y 0,4 respectivamente. 
Para establecer un diagnostico diferencial, se somete al paciente 
a un análisis clínico del que solo se pueden obtener dos resultados positi 
vo O negativo. Por la experiencia acumulada en otros casos análogos, se sa 
be que la probabilidad de que el análisis resulte positivo para los que pa 
decen la enfermedad A es 0,04 y 0,07 para los que padecen la enfermedad B. 
Al enfermo se le hace el análisis y da resultado positivo.¿Cuál es 
la probabilidad de que el paciente tuviera la enfermedad A y cuál es la 
probabilidad de que tuviera la enfermedad B. 
SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? 2 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


P(A 1) => ¿29 
P(B/A 1 ) =? .04 
P(A 2) =?2 ,4 


P(B/A 2 ) =? ,07 


240 CALCULO DE PROBABILIBADES 


PROBABILIDADES A POSTERIORI 


LA PROBABILIDAD DE (A 1 /B) = .26315789 
LA PROBABILIDAD DE (A 2 /B) = .73684211 


d.0. producto consta de 6 partes del siguiente modo: 15% de la parte 
Aj 25% de la parte Ar 20% de la parte Az 25% de la parte Ay! 0,05% de 
la parte Agr y 0,1% de la parte A6' El laboratorio de control de calidad 
informa que, despues de muchos análisis,se ha determinado que la probabili 
dad de que se produzca un falio en la parte A, es 0,3, en la parte A, es 
0,4, en la parte Ar es 0,5, en la parte A, es 0,3, en la parte As es 0,25 
y en la parte A es 0,1. 

Elegida una pieza al azar se analiza y se observa que está defectuo 
sa. Hallar la probabilidad de que el defecto proceda de cada una de las par 
tes. 

SOLUCION: 


NUMERO DE SUCESOS QUE COMPONEN EL SISTEMA COMPLETO? ó 


INTRODUZCA LA PROBABILIDAD A PRIORI P(Ai), Y LA PROBABILIDAD DEL SUCESO B CON- 
DICIONADA A Ai,P(B/Ai) 


PAL). =?2.15 

P(B/A 1.) =? .3 

P(A2)  =?.25 

P(B/A 2.) =? .4 

PIA3)  =?.2 

P(B/A 3) =? .5 

P(A 4) =? .25 : 
P(B/A 4) =? .3 

PAS)  =? .05 

P(B/A 5) =? .25 

PIA6)  =? .1 

P(B/A 6) =? .1 

PROBABILIDADES A POSTERIORI 
LA PROBABILIDAD DE (A 1 /B) = .13138686 

LA PROBABILIDAD DE (A 2 /B) = .2919708 

LA PROBABILIDAD DE (A 3 /B) = .2919708 

LA PROBABILIDAD DE (A 4 /B) = .2189781 

LA PROBABILIDAD DE (A 5 /B) = .03649635 

LA PROBABILIDAD DE (A é /B) = .02919708 


DISTRIBUCION BINOMIAL 


introducción: 


Este programa permite calcular las probabilidades de la distribución 


binomial, para lo cual es necesario conocer el número de pruebas realizadas 


n, 


so 


la 


el número de exitos deseados r, (0 <r < n) y la probabilidad del suce 
exito p, (0<p+<l1). 
La ley de probabilidad de la distribución binomial viene dada por 


expresión: ES 
p(x= Y) = (7) Pq. siendo q = 1 -p 
El programa obtiene: 
La probabilidad puntual de obtener r exitos en n pruebas. 


La probabilidad de obtener un número de exitos < r en n pruebas. 


La probabilidad de obtener un número de exitos > r en n pruebas. 


listado del programa: 


10 

20 

30 

40 

50 

100 
109 
110 
120 
130 
140 
150 
160 
170 
179 
180 
190 
200 
z10 
220 
230 


REM ROSSO: 
REM 


REM DISTRIBUCION BINOMIAL 
REM 
REM IRONIA AAA: 


PRINT 

REM - ENTRADA DE DATOS - 

PRINT "NUMERO DE PRUEBAS REALIZADAS ="; 
INPUT N 

PRINT "NUMERO DE EXITOS DESEADOS ="; 
INPUT X 

IF X>N THEN GOTO 400 

PRINT "PROBABILIDAD DEL SUCESO EXITO =";5 
INPUT P 

REM - CALCULO DE LAS PROBABILIDADES - 
Q=1-P 

FX=Q*N 

LX=FX 

U=P/Q 

M=N+1 

IF X=0 THEN GOTO 280 


242 


DISTRIBUCIONES UNIDIMENSIONALES DISCRETAS 


240 FOR I=1 TO X 

250 FX=(M-1)XUXFX/I 

260 LX=LX+FX 

270 NEXT I 

280 RX=1+FX-LX 

289 REM -SALIDA DE RESULTADOS - 


290 PRINT 

300 PRINT "LA PROBABILIDAD DE OBTENER"5X5"EXITOS EN"53N;5"PRUEBAS ES ="5FX 
310 PRINT "LA PROBABILIDAD DE OBTENER <="3X5"EXITOS EN";N5"PRUEBAS ES ="j,Lx 
320 PRINT "LA PROBABILIDAD DE OBTENER >="3X5"EXITOS EN"3N;5"PRUEBAS ES ="j¿RX 
330 PRINT 

339 REM - MAS CALCULOS - 


340 PRINT "DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S/N"; 
350 INPUT Cs$ 

360 IF C$="N" THEN GOTO 410 

370 PRINT "X ="; 

380 INPUT X 

390 GOTO 180 

400 PRINT "IMPOSIBLE N HA DE SER MAYOR O IGUAL QUE Xx" 

410 END 


ejercicios resueltos: 


1. La aplicación de un determinado tratamiento a enfermos de cirrosis 


produce una cierta mejoría en el 70% de los casos. Si se aplica el trata - 


miento a 10 enfermos cirróticos, calcular: 


a) 
b) 


¿Cuál es la probabilidad de que mejoren 4? 
¿Cuál es la probabilidad de que mejoren 5? 


SOLUCION: 


NUMERO DE PRUEBAS REALIZADAS =? 10 
NUMERO DE EXITOS DESEADOS =2 4 
PROBABILIDAD DEL SUCESO EXITO =? .2 


LA PROBABILIDAD DE OBTENER 4 EXITOS EN 10 PRUEEAS ES = .036756909 
LA PROBABILIDAD DE OBTENER <= 4 EXITOS EN 10 PRUEBAS ES = .047348987 
LA PROBABILIDAD DE OBTENER >= 4 EXITOS EN 10 PRUEBAS ES = .98940792 
DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE Xx? S/N?S 
75 
LA PROBABILIDAD DE OBTENER S EXITOS EN 10 PRUEBAS ES = .102?1935 
LA PROBABILIDAD DE OBTENER <= 5 EXITOS EN 10 PRUEBAS ES = .15026833 
LA PROBABILIDAD DE OBTENER >= 5 EXITOS EN 10 PRUEBAS ES = .95265101 

Z, La probabilidad de que un estudiante obtenga el título de Licencia- 
do en Ciencias Biológicas es 0,3. 

Calcular la probabilidad de que de un grupo de 7 estudiantes: 

a) Finalicen los 7. 
b) Finalicen un número menor O igual a 7 
c) Finalicen un número mayor o igual a 7 


Análogo para O 
SOLUCION : 


NUMERO DE PRUEBAS REALIZADAS 
EXITOS DESEADOS 
PROBABILIDAD DEL SUCESO EXITO =>? 


NUMERO DE 


LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 
x=?0 


LA PROBEAEILIDAD DE 
LA PROBABILIDAD DE 
LA PROEABILIDAD DE 


DESEA REALIZAR MAS 


3. La probabilidad de que un individuo vacunado contra una cierta en - 
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=2 ? 


=P? 7 


.3 
OBTENER ? EXITOS EN 7? PRUEBAS ES 
OBTENER <= 7? EXITOS EN 7? PRUEBAS ES 
OBTENER >= ? EXITOS EN 7? PRUEBAS ES 


CALCULOS PARA OTRO VALOR DE Xx? S5/N?S 


OETENER O EXITOS EN 7 PRUEBAS ES 
OBTENER <= O EXITOS EN 7? PRUEBAS ES 
OBTENER >= O EXITOS EN 7? PRUEBAS ES 


CALCULOS FARA OTRO VALOR DE Xx? S/N?N 


fermedad la contraiga es 0,2. 


De un grupo de 8 individuos vacunados,¿cuál es la probabilidad de 


que: 

a) Contraiga 
b) Contraiga 
c) Contraiga 


Análogo para 2 individuos y 


SOLUCION: 


la enfermedad un solo individuo. 
la enfermedad a lo sumo uno. 


la enfermedad por lo menos uno. 


para 8 indivuos. 


NUMERO DE PRUEBAS REALIZADAS =? 8 
NUMERO DE EXITOS DESEADOS =? 1 
PROBABILIDAD DEL SUCESO EXITO =? .2 


LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 
x=? 2 


LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 
x=? 8 


LA PROBABILIDAD DE 
LA PROBABILIDAD DE 
LA PROBABILIDAD DE 


DESEA REALIZAR MAS 


OBTENER 1 EXITOS EN 8 PRUEBAS ES 
OBTENER <= 1 EXITOS EN 8 PRUEBAS ES 
OBTENER >= 1 EXITOS EN 8 PRUEBAS ES 


CALCULOS PARA OTRO VALOR DE X? S/N?S 


OBTENER 2 EXITOS EN 8 PRUEBAS ES 
OBTENER <= 2 EXITOS EN 8 PRUEBAS 
OBTENER 2 EXITOS EN 8 PRUEBAS 


ES 
ES 


>= 
CALCULOS PARA OTRO VALOR DE X? S/N?S 
OBTENER 3 EXITOS EN S PRUEBAS ES 

OBTENER <= 8 EXITOS EN 8 PRUEBAS ES 


OBTENER >= 8 EXITOS EN 8 PRUEBAS ES 


CALCULOS PARA OTRO VALOR DE XxX? S/N?N 


'" 


. 0002187 
1 
. 0002153099592 


- 0323543 
.0323543 
1 


. 33954432 
.S0331648 
.83222784 


.29360128 
.79691776 
. 49668352 


2.56E-06 
1 
2.55929729E-06 


DISTRIBUCION DE POISSON 


introducción: 


Este programa permite calcular las probabilidades de la distribución 
de Poisson, para lo cual es necesario conocer el parámetro m de la distri- 
bución de Poisson, asi como el valor de'la variable aleatoria discreta pa- 
ra la que se han de efectuar los cátculos. 

La ley de probabilidad de la distribución de Poisson viene dada por 
la siguiente expresión: > 

p(X = r) = e 

El programa permite hallar: 

a) La probabilidad puntual de que la variable aleatoria tome el valor r 
b) La probabilidad de que la variable aleatoria tome a lo sumo el valor r. 
Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 


r. 


listado del programa: 


10 REM IRSA 
20 REM 


30 REM DISTRIBUCION DE POISSON 

40 REM 

50 REM IRRADIA 
100 PRINT 


109 REM - ENTRADA DE DATOS - 

110 PRINT "INTRODUZCA EL PARAMETRO M DE LA DISTRIBUCION DE POISSON ="; 
120 INPUT M 

130 PRINT "VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO ="; 
140 INPUT X 

149 REM - CALCULO DE LAS PROBABILIDADES - 

150 FX=EXP (-M) 

160 LX=FX 

170 IF X=0 THEN 220 

180 FOR I=1 TO X 

190 FX=FXXM/I 

200 LX=LX+FX 

210 NEXT I 

220 RX=1+FX-LX 
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230 PRINT 


239 REM - SALIDA DE RESULTADOS - 

240 PRINT 

250 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA ES 
260 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA ES 
270 PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA "Rx 


280 PRINT 

289 REM - MAS CALCULOS - 

290 PRINT "DESEA HACER CALCULOS PARA OTRO VALOR DE Xx 7 3/N”5 
300 INPUT Cs 

310 IF C$="N" THEN GOTO 360 

320 PRINT 

330 PRINT "Xx ="; 

340 INPUT X 

330 GOTO 150 

360 END 


ejercicios resueltos: 


1. Se supone que en un determinado pais la proporción de individuos al 
binos es de 0,005. Calcular la probabilidad de que elegida una muestra de 
la citada población de tamaño 1000, se presenten los siguientes casos: 

a) Ningun individuo sea albino. 

b) Tres individuos sean albinos. 

c) A lo sumo haya tres individuos albinos. 

d) Por lo menos haya tres individuos albinos. 

SOLUCION: 

Al ser p = 0,005 y n = 1000 se cumple que m= n.p = 5. Luego el pará- 


metro de la distribución es 5. 


INTRODUZCA EL PARAMETRO M DE LA DISTRIBUCION DE POISSON =? 5 
VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO =? O 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 0 ES .006737947 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= O ES .006737947 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= O ES 1 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?S 
x=? 3 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 


ES .1403739 
ES .2ó502592 
ES  .87534798 


/ 
'" 
uu a 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?N 


Le La probabilidad de que se produzca un choque anafiláctico al sumi- 


nistro de un suero en un individuo es de 0,002. Sea X la variable aleato- 
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ria que representa el número de choques anafilácticos en un grupo de 1200 
enfermos a los que se les ha suministrado el suero. Calcular: 

a) Probabilidad de que se produzcan 5 choques anafilácticos. 

b) Probabilidad de que se produzcan a lo sumo 5 choques anafilácticos. 

c) Probabilidad de que se produzcan por lo menos 5 choques anafilácticos. 
Análogo para 7 choques. 

SOLUCION: 

La variable X sigue trivialmente una distribución binomial. Ahora bien, al 
ser n = 1200 muy grande y p=0,02 muy pequeño, obtenemos una buena 
aproximación de la distribución binomial mediante la distribución de Pois- 
son de parámetro: m = n.p = 1200.0,02 = 2,4 


INTRODUZCA EL PARAMETRO M DE LA D 
ISTRIBUCION DE POISSON =7? 2.4 
VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO =? 5 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 5 ES .060196079 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 5 ES .96432749 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= SES .09586859 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?S 


A AZ 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 7 ES .0082554623 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 7 ES .99666138 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 7 ES .O011594079 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?N 


3. Un almacén farmaceútico recibió 1000 botellines de suero fisiológi- 
CO. La probabilidad de que al transportar los botellines se rompa uno es 
igual a 0,003. Hallar la probabilidad de que al desembalar los botellines, 
resulten: 
a) Haya exactamente 2 rotos. 
b) Haya a lo sumo 2 rotos. 
Cc) Haya por lo menos 2 rotos. 
SOLUCION: 
El parametro de la distribución de Poisson es: m = n.p = 1000.0,3 = 3 


INTRODUZCA EL PARAMETRO M DE LA DISTRIBUCION DE POISSON =? 3 
VALOR DE LA VARIABLE ALEATORIA X PARA EL QUE SE DESEA EL CALCULO =? 2 


PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA = 2 ES  .22404181 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 2 ES .42319008 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 2 ES .80085173 


DESEA HACER CALCULOS PARA OTRO VALOR DE X ? S/N?N 


DISTRIBUCION HIPERGEOMETRICA 


introducción: 


Este programa calcula las probabilidades de la distribución hiper- 
geométrica, para ello es necesario conocer los tres parámetros que caracte 
rizan a esta distribución: el tamaño de la población N, el tamaño de la 
muestra s y la probabilidad del suceso exito p. 

La ley de probabilidad de la distribución hipergeométrica viene da 
da por la siguiente expresión: 


AP 
(3) 


siendo Np y Nq=N(1-p) números enteros. 


p(x = r) 


listado del programa: 


10 REM ARA OOOO 
20 REM 

30 REM DISTRIEUCION HIPERGEOMETRICA 

40 REM 

50 REM IRIS OOOO ARANA 
100 PRINT 

109% REM - ENTRADA DE DATOS - 

110 PRINT "TAMANO DE LA POBLACION e: 

120 INPUT N 

130 PRINT "TAMANO DE LA MUESTRA E: 

140 INPUT S 

150 PRINT "PROBABILIDAD DEL SUCESO EXITO 
160 INPUT P 

170 PRINT "NUMERO X DE EXITOS DESEADOS 
150 INPUT X 

190 A=NXP 

200 B=X 

210 GOSUB 400 

220 U=C 

230 A=NX(1-P) 

240 B=S-X 

250 GOSUB 400 

260 V=C 
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270 A=N 

230 B=S 

290 GOSUE 400 

300 W=C 

310 T=UXV/W 

319 REM - SALIDA DE RESULTADOS - 

320 PRINT 

330 PRINT "LA PROBABILIDAD DE QUE OCURRAN"; X ¿"EXITOS ES ="5T 
333 PRINT 

339 REM - MAS CALCULOS - 

340 PRINT "DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S/N"; 
350 INPUT Cs$ 

360 IF C$="N" THEN GOTO 460 

370 PRINT "X ="; 

380 INPUT X 

390 GOTO 190 

400 REM - SUBERUTINA CALCULO DE NUMEROS COMBINATORIOS - 
410 IF B=0 THEN C=1:GOTO 450 

420 FOR J=1 TO B 

430 C=C*X(A-J+1)/J 

440 NEXT J 

450 RETURN 

460 END 


ejercicios resueltos: 


A. prescripción facultativa un enfermo debe hacer una toma de tres 
píldoras de un determinado medicamento. De las 25 píldoras que contiene el 
envase 5 están en malas condiciones. ¿Cuál es la probabilidad de que de las 
tres píldoras de la toma, una se encuentre en malas condiciones?. 
SOLUCION: 


TAMANO DE LA POBLACION =?2 25 

TAMANO DE LA MUESTRA =2 3 

PROBABILIDAD DEL SUCESO EXITO =? .2 

NUMERO X DE EXITOS DESEADOS =? 1 

LA PROBABILIDAD DE QUE OCURRAN 1 EXITOS ES = .41304348 


DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S/N?N 


2. Una urna de votación contiene 200 papeletas, de las que 160 son para 
el candidato A y 40 son para el candidato B, Se efectuan tres extracciones 
consecutivas sin reemplazamiento de la urna, calcular,¿cuál es la probabili 
dad de que las tres papeletas sean para el candidato A?. 

SOLUCION: 


La variable que representa el número de votos conseguidos por el candidato 
A sigue una distribución hipergeométrica de parámetros: 
N= 200, n= 3, P=555,= 0.8, Np = 160 
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TAMAÑO DE LA POBLACION? 200 

TAMANO DE LA MUESTRA? 3 

PROBABILIDAD DEL SUCESO EXITO? .8 

NUMERO DE EXITOS DESEADOS? 3 

LA PROBABILIDAD DE QUE OCURRAN 3 EXITOS ES = .51006548 


3. Una jaula de laboratorio contiene 15 cobayas, de las que 6 son blan 
cas y 9 pardas. Un ayudante de laboratorio con los ojos vendados extrae 
sin reeplazamiento 4 cobayas de la jaula. 

Calcular la probabilidad de que ninguna sea blanca. 


SOLUCION: 


TAMAÑO DE LA POBLACION? 15 

TAMAÑO DE LA MUESTRA? 4 

PROBABILIDAD DEL SUCESO EXITO? .4 

NUMERO DE EXITOS DESEADOS? O 

LA PROBABILIDAD DE QUE OCURRAN O EXITOS ES = .092307692 


DISTRIBUCION NORMAL 


introducción: 


Este programa sirve para calcular las probabilidades de la distribu 
ción normal de Gauss. Para poder aplicarlo es necesario conocer los paráme 
tros que la caracterizan: media y desviación típica. En el supuesto de que 
no se trate de la normal standard N(O,1) en la linea 270 se realiza la ti 
pificación de la variable. 

La función de densidad de la distribución normal N(m,s), viene dada 
por la expresión : 

£(0) =—— exp(- 5 ED?) 
s y2r 

El programa permite calcular: 
a) La ordenada de la función de densidad en el punto x. 

b) La probabilidad de que la variable aleatoria tome a lo sumo el valor x. 
C) La probabilidad de que la variable aleatoria tome por lo menos el valor 


X. 


listado del programa: 


10 REM IRRRRRRRRRRRORRRRRRDRORARRRRARRRARARRDORRRRRRRORDARRORORDORORORDRORRRODAREORDORDAODODORNK 
20 REM 


30 REM DISTRIBUCION NORMAL 

40 REM 

IN EEES 
100 PRINT 


110 DIM A(4) 

120 REM - ENTRADA DE DATOS - 

130 PRINT "MEDIA M ="; 

140 INPUT mM 

150 PRINT "DESVIACION TIPICA ="5 
160 INPUT S 

170 PRINT "VALOR DE LA VARIABLE X PARA LA QUE SE DESEA EL CALCULO, X ="; 
180 INPUT X 

190 REM -COEFICIENTES A(I)- 

200 A(0)=1.330274429 

210 A(1)=-1.821255978 

220 A(2)=1.2?81477937 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
389 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 


J.R.VIZMANOS 251 


A(3)=-.356563782 

A(4)=.319381530 

B=.2316419 

REM - TIPIFICACION DE LA VARIABLE - 
Y=ABS ( (X-M) /S) 

Z=EXP (-YX*Y/2)/2.506628275 

FX=Z/S 

C=1+BXY 

D=1/C 

HO =0 

FOR I=0 TO 4 

HO=HOXD+A(1) 

NEXT 1 

HO=HOXD 

RX=2ZxXHO 

LX=1-RX 

REM - SALIDA DE RESULTADOS - 

PRINT 

PRINT "ORDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO ="3X5"ES "3FX 
PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <="3X3"ES "¿LX 
PRINT "PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >="3X3"ES "jRX 
PRINT 

PRINT 

PRINT "DESEA REALIZAR MAS CALCULOS PARA OTRO VALOR DE X? S/N"; 
INPUT Cs$ 

IF C$="N" THEN GOTO 520 

PRINT 

PRINT "X ="5 

INPUT X 

GOTO 190 

END 


e 


ejercicios resueltos: 


1. La duración media,sin ninguna rotura,de las sábanas de un Sanatorio 


Psiquiátrico de 300 camas, es de 50 dias con una desviación típica de 8 di 


as. Si suponemos que la duración de las sábanas sigue una distribución nor 


mal, 


calcular: 


a) ¿Cuál es la probabilidad de que una sábana dure a lo sumo 35 dias?. 


b) ¿Cuál es la probabilidad de que una sábana dure por lo menos 35 dias?. 
Análogo para 60 dias. 
SOLUCION: 


MEDIA mM =7? 50 


DESVIACION TIFICA =7? 8 
VALOR DE LA VARIABLE X 


< PARA LA QUE SE DESEA EL CALCULO, x =7 35 


ORDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO 35 ES .0085952845 
RROBAEILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 35 ES .0044729692 
PROBABILIDAD DE QUE LA VARIAELE ALEATORIA SEA >= 35 ES .99552703 


DESEA REALIZAR MAS CALCULOS FARA OTRO VALOR DE XxX? S/N ?S 


A 


Xx =P 


60 
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ORDENADA DE LA FUNCION DE DENSIDAD EN EL FUNTO 60 ES .022831136 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= 60 ES .89435016 
PROBAEILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 60 ES .10564989 


DESEA REALIZAR MAS CALCULOS FARA OUTRO VALOR DE Xx? S/N ?N 


7 La medida de un cerrojo de precisión se distribuye según una normal 
N(10; 0,1). Tomado un cerrojo al azar se desea saber: 
a) La prdabilidad de que a lo sumo mida 10,01 cms. 
b) La probabilidad de que por lo menos mida 10,01 cms. 
SOLUCION: 


MEDIA mM =? 10 
DESVIACION TIPICA =7? .,O1l 
VALOR DE LA VARIABLE X PARA LA QUE SE DESEA EL CALCULO, Xx =7? 10.01 


ORDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO 10.01 ES 24.197072 
PROBAEILIDAD DE QUE LA” VARIABLE ALEATORIA SEA <= 10.01 ES .894134474 
PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= 10.01 ES.  .158ó65526 


3. Las notas de los alumnos de una clase se distribuyen según una nor- 
mal de parámetros N(6.5; 1.3). Tomado un alumno al azar se desea saber: 
a) La probabilidad de que a lo sumo tenga una calificacion igual a 7.2. 
b) La probabilidad de que por lo menos tenga una calificación igual a 7.2. 
SOLUCION: 


MEDIA mM =? 6.5 
DESVIACION TIPICA =? 1.3 
VALOR DE LA VARIAELE %x FARA LA QUE SE DESEA EL CALCULO, XxX =? 7.2 


ORDENADA DE LA FUNCION DE DENSIDAD EN EL PUNTO 


7.2 ES ¿265464975 
FROBAEILIDAD DE QUE LA VARIABLE ALEATORIA SEA «<= ?.2 ES .7048708 
PROBABILIDAD DE QUE LA VARIAELE ALEATORIA SEA >= 7.2 ES .2951292 


DISTRIBUCION CHI-CUADRADO 


introducción: 


Este programa calcula las probabilidades de la distribución chi-cua 
drado de Pearson, para ello es preciso conocer unicamente los grados de Li 
bertad de la distribución. 

La función de densidad de la distribución chi-cuadrado viene dada 
por la siguiente expresión: 


Xx n 
E Eos 
A 
¿n/2 r (5) 


siendo r la función gamma. 
El programa permite calcular: 
a) La probabilidad de que la variable aleatoria tome el valor x. 
b) La probabilidad de que la variable aleatoria tome a lo sumo el valor x. 
Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 


X. 


listado del programa: 


10 REM RARO OIR III ORINAR: 
20 REM 


30 REM DISTRIBUCION CHI-CUADRADO 
40 REM 

50 REM DE PEARSON 

60 REM 


70 REM RRA IIOIIIIOIIIIIIIIIIIIIIIIIIIIAAA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE GRADOS DE LIBERTAD"; 

120 INPUT Y 

130 PRINT "VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X="; 
140 INPUT *X 

149 REM - CALCULO DE LA FUNCION GAMMA - 

150 G=1 

1160 IF V=2XINT(V/2) THEN GOTO 219 

169 REM - CALCULO DE G PARA V IMPAR - 
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170 IF V=1 THEN GOTO 210 

180 FOR I=1 TO 2X*INT(V/2)-1 STEP 2 

190 G=G6X1/2 

200 NEXT 1 

210 G=G*1.772452851 

219 REM - CALCULO DE G PARA V PAR - 

220 IF V=2 THEN GOTO 260 

230 FOR I=1 TO INT(V/2-1) 

240 G=GX1 

250 NEXT 1 

259 REM - CALCULO DE LAS PROBABILIDADES - 

260 FX=X"(V/2-1) 

270 C=EXP(-X/2) 

280 D=GX(2" (V/2)) 

290 FX=FX*C/D 

300 FC=(X/2)" (4/2) 

310 FCO=FCXC/((V/2)%G) 

320 FD=1 

330 LX=1 v=12 
340 I=2 

350 FD=FDX*X/(V+1) cdas e 
360 LX=LX+FD 0 

370 IF (FDXFC)>1E-8S THEN 410 

380 LX=LX*FC 

390 RX=1-LX 

400 GOTO 430 

410 I=1+2 

420 GOTO 350 

429 REM - SALIDA DE RESULTADOS - 

430 PRINT 

440 PRINT 

450 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE SEA ="; 
460 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE SEA <="; 
470 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE SEA >="; 
480 PRINT 

489 REM - MAS CALCULOS - 

490 PRINT "DESEA HACER MAS CALCULOS PARA OTRO VALOR DE X? S/N "; 
500 INPUT C$ 

510 IF C$="N" THEN GOTO 560 

520 PRINT 

530 PRINT "X ="; 

540 INPUT x 

550 GOTO 150 

560 END 


Xx 


= 
m 
N 
r 
x 


X 
pS 


ejercicios resueltos: 


1. Para una chi-cuadrado con 10 grados de libertad ejecutar el progra- 
ma para X= 20.4 y para x=15.3. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD? 10 
VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X=? 20.4 


LA PROBABILIDAD DE QUE LA VARIABLE SEA = 20.4 ES .0083821559 
LA PROBABILIDAD DE QUE LA VARIABLE SEA <= 20.4 ES .97431154 
LA PROBABILIDAD DE QUE LA VARIABLE SEA >= 20.4 ES .025688463 


J. 
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DESEA HACER MAS 
x=? 15.3 

LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 


DESEA HACER MAS 


CALCULOS PARA OTRO 


DE QUE: LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


VALOR DE X”? 


SEA = 15.3 
SEA <= 15.3 
SEA >= 15.3 


VALOR DE Xx? 


S/N 


ES 
ES 
ES 


S/N 


255 


?s 


.033966572 
.87849883 
+ 12150117 


PN 


pA Ejecutar el programa anterior para una chi-cuadrado con 18 grados 
12.6. 


de libertad, 


siendo los valores de x: 


SOLUCION: 


NUMERO DE GRADOS 
VALOR DE LA VARI 


LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 
DESEA HACER MAS 
=? 12.6 
LA PROBABILIDAD 
LA PROBABILIDAD 
LA PROBABILIDAD 


DESEA HACER MAS 


DE LIBERTAD? 18 
ABLE X PARA EL QUE 


DE QUE 
DE QUE 
DE QUE 


LA VARIABLE 
LA VARIABLE 
LA VARIABLE 


CALCULOS PARA OTRO 


DE QUE LA VARIABLE 
DE QUE LA VARIABLE 
DE QUE LA VARIABLE 


CALCULOS PARA OTRO 


36.5; 


SE DESEA EL 


SEA = 36.5 
SEA <= 36.5 
SEA >= 36.5 


VALOR DE Xx”? 


SEA = 12.6 
SEA <= 12.6 
SEA >= 12.6 


VALOR DE Xx? 


CALCULO, X=? 36.5 


ES 
ES 
ES 


S/N 


ES 
ES 
ES 


S/N 


.0018099982 
.99391535 
. 0060846528 


PS 


.056509133 
«18523335 
.81476665 


2N 


3. Para una chi-cuadrado con 9 grados de libertad, ejecutar el programa 
para los valores de x = 3, y de x=7. 


SOLUCION 


NUMERO DE GRADOS 


DE LIBERTAD? 9 


VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X=? 7 
LA PROBABILIDAD DE QUE LA VARIABLE SEA = 7 ES .017353306 

LA PROBABILIDAD DE QUE LA VARIABLE SEA <= 7 ES .060480133 

LA PROBABILIDAD DE QUE LA VARIABLE SEA >= 7 ES .93951987 
DESEA HACER MAS CALCULOS PARA OTRO VALOR DE X”? S/N ?S 

x=? 3 

LA PROBABILIDAD DE QUE LA VARIABLE SEA = 3 ES .0066077321 
LA PROBABILIDAD DE QUE LA VARIABLE SEA <= 3 ES .0059508408 
LA PROBABILIDAD DE QUE LA VARIABLE SEA >= 3 ES .9299404916 
DESEA HACER MAS CALCULOS PARA OTRO VALOR DE X”? S/N ?N 


DISTRIBUCION t DE STUDENT 


introducción: 


Este programa sirve para calcular las probabilidades de la distribu 
ción t de Student, para lo cual es necesario conocer el número de grados 
de libertad de la distribución. 

La función de densidad de la distribución t de Student viene dada 


por la siguiente expresión: 


n+1 - (n+1) /2 
1 n= x? 
A a ARA 
ynT (5) 


El programa permite calcular: 
a) La probabilidad de que la variable aleatoria tome el valor x. 
b) La probabilidad de que la variable aleatoria tome a lo sumo el valor x. 
Cc) La probabilidad de que la variable aleatoria tome por lo menos el valor 


X. 


El programa permite calcular: 
a) La probabilidad de que el valor absoluto de la variable aleatoria sea 
menor O igual que un valor x. 
b) La probabilidad de que la variable aleatoria sea menor o igual que un 
valor x. 
Cc) La probabilidad de que la variable aleatoria sea mayor o igual que un 
valor x. 


listado del programa: 


10 REM IRRRRRRRRRRRORRARRROROARARORRRRRORORRARARODORDARRRIRIRRORIRIRIRRIRIRIRIRRIRIIIOIOIIOIAIIAIARAR: 
20 REM 

30 REM DISTRIBUCION DE STUDENT 

40 REM 

O 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE GRADOS DE LIBERTAD"; 

120 INPUT Y 
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130 PRINT "VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X="; 
140 INPUT X 

150 X=X/SQR (V) 

160 Z=ATN(X) 

170 IF V=1 THEN GOTO 430 

180 NZ=2X* INT (V/2) 

190 IF NZ=V THEN GOTO 310 

199 REM - CALCULOS PARA V IMPAR - 

200 AZ=C0S(Z) 

210 TZ=AZ2"2 

220 VZ=AZ 

230 IF V=3 THEN GOTO 280 

240 FOR I=2 TO V-3 STEP 2 

250 VZ=VUZXIXTZ/(1+1) 

260 AZ=AZ+UZ 

270 NEXT I 

280 AZ=AZXSIN(Z) 

290 AZ=(AZ+Z)X.6366197724 

300 GOTO 400 

309 REM - CALCULOS PARA V PAR - 

310 T2Z=C0S1Z)*2 

320 UZ=1 

330 AZ=1 

340 IF V=2 THEN GOTO 390 

350 FOR I=1 TP V-3 STEP 2 

360 VZ=UZXIXTZ/(1+1) 

370 AZ=AZ+VZ 

380 NEXT I 

390 AZ=AZXSINIZ) 

400 LxX=(1+AZ)/2 

410 RX=1-LX 

420 GOTO 450 

430 AZ=Z*.6366197724 

440 GOTO 400 

449 REM - SALIDA DE RESULTADOS - 

450 PRINT 

460 PRINT "LA PROBABILIDAD DE (-X <= VARIABLE ALEATORIA <= X) ES ="jAz 
470 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= X ES ="jLX 
480 PRINT "LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= X ES ="j¿RX 
490 PRINT 

499 REM - MAS CALCULOS - 

500 PRINT "DESEA HACER CALCULOS PARA OTRO VALOR DE LA VARIABLE X 7? S/N"; 
510 INPUT Cs$ 

520 IF C$="N" THEN GOTO 570 

530 PRINT 

540 PRINT "X ="; 

550 INPUT X 

560 GOTO 150 

570 END 


ejercicios resueltos: 


Duras una distribución t de Student con 25 grados de libertad, ejecu- 
tar el programa siendo x = 1,316. 
SOLUCION: 


258 


NUMERO DE GRADOS DE LIBERTAD? 25 


? 1.316 


LA PROBABILIDAD DE (-X 
LA PROBABILIDAD DE QUE LA 
LA PROBABILIDAD DE QUE LA 


4= 
DESEA HACER CALCULOS PARA 


2 e Ejecutar 
tad, 
SOLUCION: 


siendo los 


NUMERO DE GRADOS 
2 4.39 


LA FROBABILIDAD DE (-X 
LA PROBABILIDAD DE QUE LA 
LA PROBABILIDAD DE QUE LA 


l= 
€= 


DESEA HACER CALCULOS PARA 


Xx =P? 2.316 

LA PROBABILIDAD DE (-X 
LA PROBABILIDAD DE QUE LA 
LA PROBABILIDAD DE QUE LA 


£= 


DESEA HACER CALCULOS PARA 


3. Sea una distribución t de Student con 7 grados de 


valores de x: xXx = 


VARIABLE ALEATORIA Xx) 
VARIABLE ALEATORIA SEA <= 
VARIABLE ALEATORIA SEA >= 


<= 


OTRO VALOR DE LA VARIABLE 


1.35 y  x 


DE LIBERTAD? 15 


VARIABLE ALEATORIA <= X) 
VARIABLE ALEATORIA SEA <= 
VARIABLE ALEATORIA SEA >= 


OTRO VALOR DE LA VARIABLE 


VARIABLE ALEATORIA Xx) 
VARIABLE ALEATORIA SEA <= 
VARIABLE ALEATORIA SEA 


€= 


9 
Az 


OTRO VALOR DE LA VARIABLE 


*X 
Xx 


Xx 


el programa para una t de Student con 15 


DISTRIBUCIONES UNIDIMENSIONALES CONTINUAS 


ES = .79988591 
ES = .89994295 
ES = .10005705 
? S/N?N 


2.316. 

ES . 380296346 
X ES = .90148173 
xXx ES .098518271 
Xx ? S/N?S 

ES . 72648798 
X ES = .9824399 
X ES = ,017560099 
X ? S/N?N 


grados de liber- 


libertad, ejecu- 


tar el programa anterior para los valores de x= 0.025 y x = 0,01 
SOLUCION: 

NUMERO DE GRADOS DE LIBERTAD? 7 

? .025 

LA PROBABILIDAD DE (-X <= VARIABLE ALEATORIA <= Xx) ES .019247281 
LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= X ES = .509642364 
LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA '= X ES = .49037636 
DESFA HACER CALCULOS PARA OTRO VALOR DE LA VARIABLE X 7? S/N?S 

x=? ,01 

LA PROEABILIDAD DE (-X <= VARIABLE ALEATORIA <= X) ES 0076996824 
LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA <= X ES = .50384984 
LA PROBABILIDAD DE QUE LA VARIABLE ALEATORIA SEA >= X ES = .49615016 
DESEA HACER CALCULOS PARA OTRO VALOR DE LA VARIABLE X ? S/N?N 


DISTRIBUCION F DE SNEDECOR 


introducción: 


Este programa calcula las probabilidades de la distribución F de 
Fisher, para lo cual es necesario conocer los grados de libertad de la chi 
cuadrado que se situa en el numerador n;, y los de la Chi-cuadrado del deno- 


minador n>,- 


La función de densidad de la distribución F de Fisher viene dada 
por la siguiente expresión: 


A n,+n, 1 
n,/2  n,/2 r(=—) 2 

£, n,(x) = n 1 n 2 A 
122 1 2 n n (n,+n,)72 


UÑ UL) (n,+m,x) 


El programa permíte calcular: 
a) El area de la región encerrada bajo curva de la función de densidad 
desde O hasta el valor del estadístico F que corresponda en cada caso. 
b) El area de la región encerrada bajo la curva de la función de densidad 


desde el valor del estadístico F hasta infinito. 


listado del programa: 


10 REM IRARRRRAOIOROOOOOOOOOROIOOOIRIOIOIOIOIOIOAIOAIIAIIOIIOIIIIOIIAIAIIAIINIAIAAIAAR 
20 REM 

30 REM DISTRIBUCION F DE FISHER 

40 REM 

50 REM RRA 
100 PRINT 

110 REM - ENTRADA DE DATOS - 

120 PRINT "NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni ="; 

130 INPUT Ni 

140 PRINT "NUMERO DE GRADOS DE LIBERTAD DEL DENOMINADOR N2 ="; 

150 INPUT N2 

160 PRINT "VALOR DEL ESTADISTICO F ="; 

170 INPUT F 

180 IF F=0 THEN GOTO 470 

187 REM - CALCULO DE LAS PROBABILIDADES POR APROXIMACION - 

190 X=1 


260 DISTRIBUCIONES UNIDIMENSIONALES CONTINUAS 


200 IF F<1 THEN GOTO 250 
210 A=N1 : 

220 B=5N2 

230 C=F 

240 GOTO 280 

250 A=N2 

260 B=5N1 

270 C=1/F 

280 G1=2/(9%A) 

290 G2=2/(9*B) 

300 Y=ABS((1-G2)XC" (1/2)-1+G1)/SQR(GZXC" (2/3)+G61) 

310 IF B<4 THEN 350 

320 X=.5/(1+.17%6854XY+.115194XY"2+.000344%Y"3+.019527XY"4)*4 
330 X= INT(10000%X+.5)/10000 

340 GOTO 370 

350 Y=Y*(.08%Y"4+1 /B"3) 

360 GOTO 320 

370 IF F>=1 THEN 390 


380 X=1-X 

383 PRINT 

390 PRINT "EL AREA DE LA REGION ENCERRADA DESDE O HASTA"5F5 ES ="jiox 
400 PRINT "EL AREA DE LA REGION ENCERRADA DESDE";5F;"HASTA + INFINITO ES =";x 
410 PRINT 


419 REM - MAS CALCULOS - 

420 PRINT "DESEA HACER MAS CALCULOS PARA OTRO VALOR DE F7 S/N "; 
430 INPUT C$ 

440 IF C$="N" THEN GOTO 470 

450 PRINT 

459 REM - MAS CALCULOS - 

460 GOTO 120 

470 END 


ejercicios resueltos: 


1. Para una F de Fisher de 12 y 16 grados de libertad, ejecutar el 
programa para el valor del estadístico F = 0.845. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni =? 12 
NUMERO DE GRADOS DE LIBERTAD DEL DENOMINADOR N2 =7? lé 


VALOR DEL ESTADISTICO F =? .845 


EL AREA DE LA REGION ENCERRADA DESDE O HASTA .845 ES = .3898 
EL AREA DE LA REGION ENCERRADA DESDE .845 HASTA + INFINITO ES = .6102 


Ze Para una F de Fisher de 13 y 7 grados de libertad, ejecutar el pro- 
grama para el valor del estadístico F= 4.78. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni =? 13 
NUMERO DE GRADOS DE LIBERTAD DEL DENOMINADOR N2 =? 7 
VALOR DEL ESTADISTICO F =7? 4.78 
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EL AREA DE LA REGION ENCERRADA DESDE O HASTA 4.783 ES = .2763 
EL AREA DE LA REGION ENCERRADA DESDE 34.78 HASTA + INFINITO ES = .0237 


DESEA HACER MAS CALCULOS PARA OTRO VALOR DE F? S/N 2N 


3. Ejecutar el programa de la distribución F de Fisher para una que 
tiene 14 y 9 grados de libertad, siendo F = 1,89. 
SOLUCION: 


NUMERO DE GRADOS DE LIBERTAD DEL NUMERADOR Ni =?2 14 
NUMERO DE GRADOS DE LIBERTAD DEL DENCMINADOR N2 =?2 9 
VALOR DEL ESTADISTICO F =7? 1.89 

EL AREA DE LA FEGION ENCERRADA DESDE O HASTA 1.859 ES = ¿EJ0- 
El. AREA DE LA REGION ENCERRADA DESDE 1.89 HASTA + INFINITO ES 


1 

a 
Os 
Yo 
Ci 


DISTRIBUCION NORMAL DE DOS VARIABLES 


introducción: 


Este programa calcula la función de densidad para los valores x e y 
de las dos variables aleatorias, para ello es preciso conocer las medias 
de ambas variables, las desviaciones típicas de ambas variables y el coefi 
ciente de correlación lineal entre las dos variables. 

La función de densidad de la distribución normal con dos variables 
viene dada por la siguiente expresión: 


X-MX, 2 X-MX, ,Y-MY Y-MY 2 
E AER AE 


exp - 


f(x,y) = 2 E 
A A 2 
27 SS, Yi-R2 2(1 - Ró) 


listado del programa: 


10 REM IRRRRRSORIORROOOROORIRIRRRRROROIOIOIOOOIOOIOIIOROOIOIOIOIOIOIIIIIOI IR NAAAAAAAAR 


20 REM 

30 REM DISTRIBUCION NORMAL 
40 REM 

50 REM DE DOS VARIABLES 

60 REM 

70 REM IRRRRSOROOOIRIOIRIOOOIOIOIOIOIIOOOIIOIIIIIIOIIIIIIINIIIIIIIIIIIIIAAAA: 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "MEDIA DE LA VARIABLE X, MX ="; 

120 INPUT Mx 

130 PRINT "MEDIA DE LA VARIABLE Y, MY ="; 


140 INPUT mY 

150 PRINT "DESVIACION TIPICA DE LA VARIABLE X, SX ="5 

1640 INPUT SX 

170 PRINT "DESVIACION TIPICA DE LA VARIABLE Y, SY ="; 

120 INPUT SY 

190 PRINT "COEFICIENTE DE CORRELACION, R ="; 

200 INPUT R 

210 PRINT 

220 PRINT "VALOR ¡DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X="; 
230 INPUT X 

240 PRINT "VALOR DE LA VARIABLE Y PARA EL QUE SE DESEA EL CALCULO, Y =" 
250 INPUT Y 

259 REM - TIPIFICACION DE LAS VARIABLES - 

260 ZX=(X-MX)/SX 
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270 ZY=(Y-MY)/SY 

280 RF=2*(1-R"2) 

290 VF=ZX"*24+2Z2Y*2-2KRXAZXXZY 

300 VF=EXP (-UF/RF) 

310 2X=SXXSYXSQR(IZXRF)XPI 

320 F=UF/ZX 

330 PRINT 

330 REM - SALIDA DE RESULTADOS - 

340 PRINT "PROBABILIDAD DE QUE X ="3X3"Y QUE Y =";Y3"ES =";F 
350 PRINT 

359 REM - MAS CALCULOS - 

360 PRINT "DESEA HACER CALCULOS FARA OTROS VALORES DE XE Y? S/N"; 
370 INPUT Cs 

380 IF C$="N" THEN GOTO 400 

390 GOTO 210 

400 END 


ejercicios resueltos: 


1. Sea X una variable aleatoria de media 4,5 y desviación típica 1,6 
e Y otra variable aleatoria de media 6,8 y desviación típica 2,3 y sea el 
coeficiente de correlación lineal 0,89. Hallar la probabilidad de que la 
variable X tome el valor 2 y la variable Y el valor 3. 


Idem para X = 2,5 e Y = 3,8 
SOLUCION: 


MEDIA DE LA VARIABLE X, MX =? 94.5 
MEDIA DE LA VARIABLE Y, MY =? 6.8 
DESVIACION TIPICA DE LA VARIABLE X, 5SX =? 1.4 
DESVIACION TIPICA DE LA VARIABLE Y SY =2 2.1 


COEFICIENTE DE CORRELACION, R =? .89 


VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X=? 2 
VALOR DE LA VARIABLE Y PARA EL QUE SE DESEA EL CALCULO, Y =? 3 


PROBABILIDAD DE QUE X = 2 Y QUE Y = 3 ES = .023738314 


DESEA HACER CALCULOS PARA OTROS VALORES DE X E Y ? S/N?S 


iS 


VALOR DE LA VARIABLE X PARA EL QUE SE DESEA EL CALCULO, X 5 
Y .3 


2 
VALOR DE LA VARIABLE Y FARA EL QUE SE DESEA EL CALCULO, 3 


=? 


PROBABILIDAD DE QUE X = 2.5 Y QUE Y = 3.8 ES = .039747501 


RECTAS DE REGRESION 


introducción: 


Este programa calcula parámetros estadísticos de distribuciones bi- 


dimensionales, asi como la recta de regresión de x sobre y y de y sobre x 


permitiendo hacer estimaciones de y conocido x y de x conocido y. 


Las expresiones de ambas rectas son las siguientes: 
= covarianza 


Recta de regresión de y sobre x: OSI lanza AX - x) 


covarianza 


Recta de regresión de x sobre y: x x= ly - y) 


varianza y 


A medida que el coeficiente de determinación r? tiende a 1, ambas 


rectas tienden a confundirse. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
179 
180 
190 
200 
zio 
219 
220 
230 
240 


REM III NIN RI RR OIIO NONIRNRRNIIIIIIIRNIO RR RINIIANIRANIIANAAAAAA: 
REM 


REM DISTRIBUCIONES BIDIMENSIONALES 
REM 

REM RECTAS DE REGRESION 

REM 


REM RR III III III NIRO III 
PRINT 

PRINT "NUMERO DE DATOS CONOCIDOS" ; 

INPUT N 

DIM S(5) 

FOR J=1 TO 5 

S(J)=0 

NEXT J 

PRINT 

REM -—-ENTRADA DE DATOS-- 

PRINT "INTRODUZCA LA X Y LA Y DE CADA PUNTO" 
FOR I=1 TO N 

PRINT "X,Y DEL PUNTO"; 1; 

INPUT X,Y 

REM --CALCULO DE LAS SUMAS ACUMULADAS-- 
S(1)=S(1)+X 

S(2)=3(2)+Y 

S(3)=9(3)+x"2 
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250 S(4)=S(4)+Y"2 

260 S(5)=S(5)+XXY 

270 NEXT I 

280 M1=S(1)/N 

290 PRINT 

300 PRINT "MEDIA DE LA VARIABLE X ="3M1 
310 M2=S(2)/N 

320 PRINT "MEDIA DE LA VARIABLE Y ="3M2, 
330 Vi=(S(3)/N)-M12 

340 PRINT 

350 PRINT "VARIANZA DE LA VARIABLE XxX ="3V1 
360 V2=(S(4)/N)-M2"2 

370 PRINT "VARIANZA DE LA VARIABLE Y ="3V2 


380 PRINT 
390 C=(S(5)/N)-M1XM2 
399 REM -- ESTIMACION DE VALORES -- 


400 PRINT "COVARIANZA ="3C 

410 Al=C/V1 

420 PRINT 

430 PRINT "COEFICIENTE DE REGRESION DE Y SOBRE X ="j3A1 

440 A2=C/V2 

450 PRINT "COEFICIENTE DE REGRESION DE X SOBRE Y ="3A2 

460 PRINT 

470 Bi=M2-A1XM1 

480 B2=M1-A2XxM2 

490 PRINT "LA RECTA DE REGRESION DE Y SOBRE X ES: ="3A13"XX+"3B1 
500 PRINT "LA RECTA DE REGRESION DE X SOBRE Y ES: X="5423"X*xY+";5B2 
510 PRINT 


520 PRINT "EL COEFICIENTE DE CORRELACION LINEAL ES ="5SQR(ALXAZ) 
530 PRINT "EL COEFICIENTE DE DETERMINACION ES ="3 AÍXAZ 

539 REM -- ESTIMACION DE VALORES -- 

540 PRINT 


550 PRINT "SI QUIERE ESTIMAR Y CONOCIDO X: PULSE 1" 
560 PRINT "SI QUIERE ESTIMAR X CONOCIDO Y: PULSE 2" 
570 INPUT L 

580 PRINT 

590 PRINT "VALORES ESTIMADOS (para acabar el programa pulse 9999)" 
600 IF L=1 THEN 6470 

610 PRINT 

620 PRINT "Y="; 

630 INPUT Y 

640 IF Y=9999 THEN 720 

650 PRINT "X="; AZXY+B2 

660 GOTO 420 

670 PRINT "x="; 

680 INPUT X 

690 IF X=9999 THEN 2720 

700 PRINT "Y=";A1%XX+B1 

710 GOTO 670 

720 END 


ejercicios resueltos: 


1. se determina la pérdida de actividad de un preparado hormonal en el 


curso del tiempo y se obtiene el siguiente resultado: 


Tiempo (en meses) 


% Activ. restante 
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Se desea saber cuando tiempo en meses tendrán que transcurrir para que la 
actividad restante sea nula. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 5 


INTRODUZCA LA X Y LA Y DE CADA PUNTO 

X.Y DEL PUNTO 1 ? 1 90 

X.Y DEL PUNTO 2 ? 2 75 

Xy Y DEL PUNTO 3? 2 42 

XaY DEL PUNTO 4 ? 4 3 

X,Y DEL PUNTO 5 2? 5 21 

MEDIA DE LA VARIABLE Xx = 3 

MEDIA DE LA VARIABLE Y = Sl.ó 

VARIANZA DE LA VARIABLE X = 2 

VARIANZA DE LA VARIABLE Y = 2073.44 
COVARIANZA =-36.6ó 

COEFICIENTE DE REGRESION DE Y SOERE Xx =-13.3 
COEFICIENTE DE REGRESION DE Xx SOBRE Y =-.052030024 


LA RECTA DE REGRESION DE Y SOBRE XxX ES! Y=-18.3 Xx+ 106.5 
LA RECTA DE REGRESION DE X SOBRE Y ES: A=- 052030029 *XY+ 5.68947492 


EL COEFICIENTE DE CORRELACION LINEAL ES = .975781345 
EL COEFICIENTE DE DETERMINACION ES = .952149449 


SI QUIERE ESTIMAR Y CONOCIDO Xx: PULSE 1 
SI QUIERE ESTIMAR 1% CONOCIDO Y: FULSE 2 
VALORES ESTIMADOS (para acabar el programa pulse 2999) 


Y=? 0 
x= 5,63471%2 meses 


2. En la siguiente tabla se recogen las medidas de la presión sanguinea 
máxima y la edad de 12 mujeres. 


| EDAD (años) | 56 42 70 35 64 47 53 49 38 42 68 60 
| P.máx. (Mn 19) 147 122 160 118 150 130 146 145 113 145 152 155 


Calcular: 


a) Parámetros estadísticos más importantes de la distribución bidimensional 

b) Rectas de regresión de y sobre x, y de x sobre y. 

c) Calcular el valor la presión máxima para mujeres de 30, 45, 70 años de 
edad. y 

SOLUCION: 
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NUMERO DE DATOS CONOCIDOS? 12 


INTRODUZCA LA X Y LA Y DE CADA PUNTO 
X.Y DEL PUNTO 1 ? 56 147 
X.Y DEL PUNTO 2 ? 42 122 
X.Y DEL PUNTO 3 ? 70 160 
X.Y DEL PUNTO 4 ? 35 118 
X, Y DEL PUNTO 5 ? 64 150 
X.Y DEL PUNTO 6 ? 47 130 
X, Y DEL PUNTO 7 ? 53' 146 
X,Y DEL PUNTO 8 ? 49 145 
X,Y DEL PUNTO 9 ? 38 113 
X,Y DEL PUNTO 10 ? 42 145 
X.Y DEL PUNTO 11 ? 68 152 
X,Y DEL PUNTO 12 ? 60 155 


MEDIA DE LA VARIABLE X = 52 
MEDIA DE LA VARIABLE Y 140.25 


VARIANZA DE LA VARIAELE X = 127 
VARIANZA DE LA VARIABLE Y = 220.02083 


COVARIANZA = 145.25 


COEFICIENTE DE REGRESION DE Y SOBRE X 1.1437008 
COEFICIENTE DE REGRESION DE X SOBRE Y = 66016476 


LA RECTA DE REGRESION DE Y SOBRE X ES: Y= 1.1437008 X*x+ 80.777559 
LA RECTA DE REGRESION DE X SOBRE Y ES: X= .66016476 *XY+-40.588107 


EL COEFICIENTE DE CORRELACION LINEAL ES = .86892517 
EL COEFICIENTE DE DETERMINACION ES = .75503095 


SI QUIERE ESTIMAR Y CONOCIDO X: PULSE 1 
SI QUIERE ESTIMAR X CONOCIDO Y: PULSE 2 


VALORES ESTIMADOS (para acabar el programa pulse 9999) 
x=? 30 

Y= 115.08858 

x=? 43 

Y= 132.24409 

x=? 70 

Y= 160.83661 

X=? 9999 


3. Los datos siguientes representan los valores de dos constantes bio- 
lógicas de 12 individuos de una cierta población: 


55 70 65 70 55 70 50 50 55 
5 79 90 85 87 94 98 81 95 76 74 76 VARIABLE Y 


Calcular los parámetros estadísticos de una distribución bidimensio 


65: 50 65 


8 


nal. Hallar las rectas de regresión de y sobre x, y de x sobre y. 

' Estimar que valor de X corresponderá para los valores de Y = 80, Y = 90 
Y = 100. 
SOLUCIÍON: 
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NUMERO DE DATOS CONOCIDOS? 12 


INTRODUZCA LA X Y LA Y DE CADA PUNTO 
X.Y DEL PUNTO 1 ? 65 8s 
X.Y DEL PUNTO 2 ? 50 79 
X.Y DEL PUNTO 3 ? 55 76 
X.Y DEL PUNTO 4 ? é5 90 
X.Y DEL PUNTO 5 ? 55 es 
X.Y DEL PUNTO 6 ? 20 87 
X.Y DEL PUNTO 7 ? 65 94 
X.Y DEL PUNTO 8 ? 70 98 
X.Y DEL PUNTO 9 ? 55 el 
X,Y DEL PUNTO 10 ? 70 95 
X.Y DEL PUNTO “11 ? 50 76 
X.Y DEL PUNTO 12 ? 50 74 
MEDIA DE LA VARIABLE X = 60 
MEDIA DE LA VARIABLE Y = 85 


VARIANZA DE LA VARIABLE X = 62.5 
VARIANZA DE LA VARIABLE Y = 59.5 


COVARIANZA = 53.75 


COEFICIENTE DE REGRESION DE Y SOBRE X .36 
COEFICIENTE DE REGRESION DE X SOBRE Y = .90336134 


LA RECTA DE REGRESION DE Y SOBRE X ES: Y= .86 X*XX+ 33.4 
LA RECTA DE REGRESION DE X SOBRE Y ES: X= .90336134 XY+-16.785714 


EL COEFICIENTE DE CORRELACION LINEAL ES = .88141407 
EL COEFICIENTE DE DETERMINACION ES = .77689076 


SI QUIERE ESTIMAR Y CONOCIDO X: PULSE 1 
SI QUIERE ESTIMAR X CONOCIDO Y: PULSE 2 
ea 


VALORES ESTIMADOS (para acabar el programa pulse 9999) 


Y=? 80 

X= 55.483193 
Y=? 90 

X= 64.516807 
Y=? 100 

X= 73.55042 
Y=? 9999 


REGRESION LINEAL 


introducción: 


Este programa calcula la recta de regresión de y sobre x por el 


método de los mínimos cuadrados, también permite conocer el coeficiente de 


E 5 ae , > 2 A 
correlacion lineal R y el coeficiente de determinación R”, asi como la va- 


rianza y la desviación típica de la estima. Posteriormente se pueden reali 


zar estimas de X para valores conocidos de Y, y estimas de Y para valores 


conocidos de X. 


listado del programa: 


10 

20 

30 

40 

50 

100 
110 
120 
130 
140 
150 
160 
170 
LAR 
180 
190 
200 
210 
220 
240 
250 
260 
270 
280 
290 
299 
300 
310 
320 
330 
340 


REM RRA 
REM 
REM REGRESION LINEAL 
REM 
REM ARRANCAR: 
PRINT 
PRINT "NUMERO DE DATOS CONOCIDOS"; 
INPUT N 
DIM S(5) 
FOR J=1 TO S 
s(J)=0 
NEXT J 
PRINT 
REM - ENTRADA DE DATOS - 
PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO" 
PRINT 
FOR I=1 TO N 
PRINT "X,Y DEL DATO";15 
INPUT X,Y 
S(1)=S(1)+X 
S(2)=S(2)+Y 
S(3)=S(3)+x"2 
S(4)=S(4)+Y"2 
S(5)=5(5)+XXY 
NEXT I 
REM - CALCULO DE LOS COEFICIENTES DE LA ECUACION DE REGRESION - 


C=NXS (5) -S(2)XS(1) 
D=NX*S (3)-S(1)2 
B=C/D 
A=(S(2)-BXS(1))/N 
PRINT 


270 REGRESION Y CORRELACION 
A AE 1 


350 PRINT "MODELO DE LINEA AJUSTADA 
360 S(4)=S(4)-S(2)"2/N 

370 S(1)=BX*(S(5)-S(1)XS(2)/N) 

380 S(2)=S(4)-S(1) 

390 S(5)=S(1)/5(4) 

400 PRINT "COEFICIENTE DE CORRELACION ="3SQR(S(5)) 


< 
" 
= 


Aj" GB3 UR" 


410 PRINT "COEFICIENTE DE DETERMINACION "55(5) 

420 PRINT "VARIANZA DE LA ESTIMACION "35(2)/(N-2) 

430 PRINT "DESVIACION TIPICA DE LA ESTIMACION ="3SQR(S (2) /(N-2)) 
490 PRINT 

450 REM -INTERPOLACION- 

460 PRINT 


470 PRINT "ESTIMACION DE Y CONOCIDA X : pulse 1" 

480 PRINT "ESTIMACION DE X CONOCIDA Y : pulse 2" 

490 INPUT P 

500 IF P=2 THEN 580 

510 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)" 
520 PRINT 

530 PRINT "Xx ="; 

540 INPUT X 

550 IF X=9999 THEN 700 

560 PRINT "Y =";A+BXX 

570 GOTO 520 

580 PRINT "VALORES ESTIMADOS: (entre 9999 Para acabar el programa)" 
590 PRINT 

600 PRINT "Y ="; 


610 INPUT Y 
620 IF Y= 9999 THEN 700 


630 PRINT "X ="3(Y-A)/B 
640 GOTO 590 
700 END 


ejercicios resueltos: 


1. El mismo enunciado que el numerado con 1 del programa anterior. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 12 
INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X,+Y DEL DATO 1 ? 65 es 

X,Y DEL DATO 2 ? 50 22 

X.Y DEL ,DATO 3 7? 55 76 

X.Y DEL DATO 4 ? 65 90 

X,Y DEL DATO 5 ? 55 85 

X.Y DEL DATO 6 ? 70 8? 

X+Y DEL DATO 7 ? 65 94 

X,+Y DEL DATO 8 ? 70 98 

X.Y DEL DATO 9 ? 55 si 

X.Y DEL DATO 10 ? 70 95 

X,Y DEL DATO 11 ? 50 76 

X.Y DEL DATO 12 ? 50 74 

MODELO DE LINEA AJUSTADA Y = 33.4 + .86 *X 
COEFICIENTE DE CORRELACION = .88141407 
COEFICIENTE DE DETERMINACION = .77689076 
VARIANZA DE LA ESTIMACION = 15.93 


DESVIACION TIPICA DE LA ESTIMACION = 3.9912404 
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— e === A _————C————————————— 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
22 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


Y =? 80 
Xx = 54.186047 


Y =? 90 
x= 65.813953 


Y =P? 9999 


Ze Las calificaciones en Matemáticas y Lengua de 6 alumnos viene dada 


por la siguiente tabla: 


MATEMATICAS 


LENGUA 


Ajustar a esta distribución bidimensional una recta de regresión. 


Estimar que calificación le correpondería en Lengua a tres alumnos que hu- 
biesen sacado 7, 9, 15 puntos en Matemáticas. 
SOLUCION 


NUMERO DE DATOS CONOCIDOS? 6 
INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 2 é 

X,Y DEL DATO 2? 3 7 

X,Y DEL DATO 3? 3 8 

X,Y DEL DATO 4 ? 4 8 

X,Y DEL DATO 5? 5 9 

X,Y DEL DATO 6 ? 4 8 

MODELO DE LINEA AJUSTADA Y = 4,4848485 + .290909091 %XX 
COEFICIENTE DE CORRELACION = .?2318618 
COEFICIENTE DE DETERMINACION = ¿85227273 
VARIANZA DE LA ESTIMACION = .19696969 
DESVIACION TIPICA DE LA ESTIMACION = .44381268 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
? 1 


VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


x =? 7 
Y = 10.848485 
x=? 9 
Y = 12.666667 
x=? 15 


Y = 18.121212 


x =? 9999 
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3. La tabla adjunta muestra el peso en Kgrs y la talla en metros de 
8 individuos. 


| Peso | 65 68 69 70 71 72 73 76 
1.67 1.65 1.70 1.69 1.72 1.75 1.78 1.75 


Hallar que tallas podemos estimar para cuatro personas cuyos pesos son: 


80, 90, 45 y 50 Kgrs. respectivamente. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 8 
INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X,Y DEL DATO 1 ? 65 1.67 

X,Y DEL DATO 2 ? 68 1.65 

X,Y DEL DATO 3 ? 69 L. 2 

X,Y DEL DATO 4 ? 70 1.69 

X,Y DEL DATO 5 ? 71 1.72 

X,Y DEL DATO 6 ? 72 1.75 

X,wY DEL DATO 7? ? 23 1.78 

X,Y DEL DATO 8 ? 76 1.75 

MODELO DE LINEA AJUSTADA Y = .94096149 + .010961539 *Xx 
COEFICIENTE DE CORRELACION = 82447229 
COEFICIENTE DE DETERMINACION = .67973457 


VARIANZA DE LA ESTIMACION = .00073589733 
DESVIACION TIPICA DE LA ESTIMACION = .027127428 


ESTIMACION DE Y CONOCIDA X : pulse 1 

ESTIMACION DE X CONOCIDA Y : pulse 2 

? 1 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


x=? 80 
Y = 1.2172846 


x =? 90 

Y = 1.9275 
x=? 45 

Y = 1.4342308 
xXx =? 50 

Y = 1.4890384 


Xx =? 9999 


REGRESION EXPONENCIAL 


. ./ ó 
introducción: 

Este programa permite ajustar mediante el método de los mínimos cua 
drados, una curva exponencial de la forma y = nm. a una nube de pun 


tos, que viene dada por las coordenadas (x,y) de los puntos conocidos. 
Además de la ecuación de la linea ajustada permite conocer el coefi 

ciente de correlación y el de determinación, asi como la varianza y la des 

viación típica de la estima. Posteriormente permite hacer estimaciones de 


y conocido el valor de x, o de x conocido el valor de y 


listado del programa: 


10 REM FRI RIIIIIIIIIIIIIIIIIIIIIIIOIIIRIOIIIIIA99990900999000010% 
20 REM 

30 REM REGRESTIGN EXPONENCIAL 
40 REM 

50 REM IRIICAIICCOIIAIAOIIIOIIIIIIIAIIIIIIIIIIRRIOOOOAAAAA A 
100 PRINT 

110 PRINT "NUMERO DE DATOS CONOCIDOS"; 

120 INPUT N 

130 DIM S(5) 

140 FOR J=1 TO 5 

150 S(J)=0 

160 NEXT J 

170 PRINT 

179 REM - ENTRADA DE DATOS - 

180 PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO" 

190 PRINT 

200 FOR I=1 TO N 

210 PRINT "X,Y DEL DATO";315 

220 INPUT X,Y 

230 Y=LOG(Y) 

240 S(1)=S(1)+X 

250 S(2)=S(2)+Y 

260 S(3)=S(3)+X"2 

270 S(4)=S(4)+Y"2 

280 S(5)=S(5)+XXY 

290 NEXT 1 

299 REM - CALCULO DE LOS COEFICIENTES DE LA ECUACION DE REGRESION - 
300 C=N%*S(5)-S(2)XS(1) 
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310 D=N*S (3) -S(1)72 


320 B=C/D 

330 A=(S(2)-BXS(1))/N 

340 PRINT 

349 REM - SALIDA DE RESULTADOS - 

350 PRINT "MODELO DE LINEA AJUSTADA Y ="3 EXP(A)3"XEXP("5B53"XX)" 


360 S5(4)=8S(4)-S(2)72/N 

370 S(1)=BX(S(5)-S(1)%S(2)/N) 

380 S(2)=S(4)-S(1) 

390 S(5)=S(1)/S(4) 

400 PRINT "COEFICIENTE DE CORRELACION ="3SGR(S(5)) 

410 PRINT "COEFICIENTE DE DETERMINACION ="35(5) 

420 PRINT "VARIANZA DE LA ESTIMACION "55(2)/(N-2) 

430 PRINT "DESVIACION TIPICA DE LA ESTIMACION ="3SQR(S(2)/(M-2)) 
440 PRINT 

450 REM -INTERPOLACION- 

460 PRINT 

470 PRINT "ESTIMACION DE Y CONOCIDA X : pulse 1" 

480 PRINT "ESTIMACION DE X CONOCIDA Y : pulse 2" 

490 INPUT P 

500 IF P=2 THEN 580 

510 PRINT "VALORES ESTIMADOS: (entre 99299 para acabar el programa)" 
520 PRINT 

530 PRINT "Xx ="; 

540 INPUT X 

550 IF X=9999 THEN 200 

560 PRINT "Y ="3EXP(A)XEXP (EXX) 

570 GOTO 520 

580 PRINT "VALORES ESTIMADOS: (entre 97999 para acabar el programa)" 
590 PRINT 

600 PRINT "Y ="; 

610 INPUT Y 

620 IF Y= 9999 THEN 700 


630 PRINT "X ="¡LOG(Y/EXP(A))/B 
640 GOTO 590 
700 END 


ejercicios resueltos: 


E; Dados los puntos (5,7; 700); (4,1; 80); (2,5; 15,6); (1,7; 6,45) 
ajústese una curva exponencial. ¿Que valores de y le corresponderán a cua- 
tro puntos que tienen x= 1; x= 6; x= 9; x= 15. 

SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 4 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 5.72 700 

X,Y DEL DATO 2 ? 4.1 so 

X,Y DEL DATO 3 ? 2.5 15.6 

X+Y DEL DATO 3 ? 1.7 6.45 

MODELO DE LINEA AJUSTADA Y = .84395974 XEXP( 1.15879 *X) 
COEFICIENTE DE CORRELACION = .99773642 

COEFICIENTE DE DETERMINACION = .92547796 

VARIANZA DE LA ESTIMACION = ,028790835 


DESVIACION TIPICA DE LA ESTIMACION . 16967862 
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ESTIMACION DE Y CONOCIDA X : pulse 1 

ESTIMACION DE X CONOCIDA Y : pulse 2 

” 

Es a 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


Y = 2.6889197 


X=? 4 
Y = 882.7919 


x=? 15 


Le El numero de bacterias por rm? crece en función del tiempo con arre 
glo a la siguiente tabla: 


TIEMPO (horas) 


N* de BACTERIAS 789 1024 1689 


Ajústese una curva exponencial a los datos observados.Calcúlese 
cuantas horas habrán de trascurrir para que el número de bacterias sea: 
y = 100; y = 200; y = 500; y = 1000; y = 2000. 

SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 3 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X, Y DEL DATO 1 ? 1.5 24 

X,Y DEL DATO 2 ? 2 67 

X,Y DEL DATO 3? 3 124 

X,Y DEL DATO 4 ? 4 256 

X,Y DEL DATO 5? 5 478 

X,Y DEL DATO 6 ? ó 789 

X, Y DEL DATO 7? ? ? 1024 

X,Y DEL DATO 8 ? £ 1689 

MODELO DE LINEA AJUSTADA Y = 17.1369799 XEXP( .608282274 XX) 
COEFICIENTE DE CORRELACION = .92774856 
COEFICIENTE DE DETERMINACION = .9255478092 
VARIANZA DE LA ESTIMACION = .11145635 
DESVIACION TIPICA DE LA ESTIMACION = .3338508 


ESTIMACION DE Y CONOCIDA X : pulse 1 

ESTIMACION DE X CONOCIDA Y : pulse 2 

?2 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 
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A A A A 


=? 100 
= 2.8972812 


x 


Y =? 200 
xXx = 4.0357853 


Y =7? 500 

Xx = 5.5408058 
Y =? 1000 

Xx = 6.6793099 
Y =? 2000 

X= 7.817814 


REGRESION LOGARITMICA 


introducción: 


Este programa permite ajustar, mediante el método de los mínimos 
cuadrados, una curva logarítmica de la forma: y = A+ B log (x), a una nu- 
be de puntos que viene dada por las coordenadas (x,y) de los puntos conoci 
dos. 

Además de la ecuación de la linea ajustada, permite conocer el coe- 
ficiente de correlación y el de determinación, asi como la varianza y la 
desviación típica de la estima. Posteriormente permite hacer estimaciones 


de y conocido x, o de x conocido y. 


listado del programa: 


10 REM ARRRRRRRRRRRRRRORRARRORRRRRIRRRRRROOIORRROROOOOIOIIIOIOIIOIIIIIIIOCIOIIIARAAAR 
20 REM 

30 REM REGRESION LOGARITMICA 

40 REM 

50 REM IRRADIA 
100 PRINT 

110 PRINT "NUMERO DE DATOS CONOCIDOS"; 

120 INPUT N 

130 DIM S(5) 

140 FOR J=1 TOS 


150 S(J)=0 
160 NEXT J 
170 R=0 


179 REM - ENTRADA DE DATOS - 
180 PRINT "INTRODUZCA [AS COORDENADAS X,Y DE CADA PUNTO" 
190 PRINT 

200 FOR I=1 TO N 

210 PRINT "X,Y DEL DATO"51;5 
220 INPUT X,Y 

230 X=LOG(X) 

240 S(1)=S(1)+X 

250 S(2)=S(2)+Y 

260 S(3)=S(3)+X"2 

270 S(4)=S(94)+Y"2 

280 S(5)=S(5)+XXY 
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290 
299 
300 
310 
320 
330 
340 
349 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 


540 
550 
560 
570 
580 
590 
600 
ó610 
620 
630 
640 
700 
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NEXT I 


REM - CALCULO DE LOS COEFICIENTES DE LA ECUACION DE REGRESION - 


C=NXS (5) -S(2)%XS(1) 

D=N*S (3)-S5(1)*2 

B=C/D 

A=(S(2)-BXS(1))/N 

PRINT 

REM -SALDA DE RESULTADOS - 
PRINT 
S(94)=S(4)-S(2)*2/N 
S(1)=BX(S(5)-S(1)%S(2)/N) 
S(2)=S(4)-S(1) 
S(3)=S(1)/S(4) 


PRINT "COEFICIENTE DE CORRELACION 

PRINT "COEFICIENTE DE DETERMINACION 

PRINT "VARIANZA DE LA ESTIMACION 

PRINT "DESVIACION TIPICA DE LA ESTIMACION 
PRINT 

REM -INTERPOLACION- 

PRINT 

PRINT "ESTIMACION DE Y CONOCIDA X : pulse 
PRINT "ESTIMACION DE x CONOCIDA Y : pulse 


INPUT P 
IF P=2 THEN 580 


PRINT "VALORES ESTIMADOS: (entre 9999 para acabar 
PRINT 

PRINT "x ="; 

INPUT Xx 

IF X=9999 THEN 700 

PRINT "Y ="3A+BXLOG(X) 
GOTO 520 

PRINT "VALORES ESTIMADOS: 
PRINT 

PRINT "Y ="; 

INPUT Y 

IF Y= 9999 THEN 700 
PRINT "X-="5EXP((Y-A)/B) 
GOTO 590 

END 


"MODELO DE LINEA AJUSTADA Y 


Aj "+" 5Bj5"XLOG(X)" 


="3SGR(S(5)) 
="35(5) 
="35(2)/(N-2) 
="3SQR(S(2)/(N-2)) 


1" 
2" 


el programa)" 


(entre 99992 para acabar el programa)" 


ejercicios resueltos: 


Lo Como consecuencia de la observación de un experimento se han obteni 
(65 4,5); (75 4,7); (3; 4); (14; 5,3); (28; 5,9) 
Ajústese una curva logarítmica y estímese que valores de y corresponderán 

10; 20; 50. 


do los siguientes puntos: 


a los valores de x siguientes: 
SOLUCION: 


Xx Xx 


NUMERO DE DATOS CONOCIDOS? 5 


DEL 


DEL 
DEL 


DATO 
DATO 
DATO 
«Y DEL DATO 14 

X.Y DEL DATO 28 

MODELO DE LINEA AJUSTADA 
COEFICIENTE DE CORRELACION 


N ul 


ERES 


XXxxx 


o05bON- 
ou 


OnNAna 


3.0170728 + 
.99877964 


.SÓ6186428 *LOG(X) 
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COEFICIENTE DE DETERMINACION . 99756077 
VARIANZA DE LA ESTIMACION .0017627493 
DESVIACION TIPICA DE LA ESTIMACION = .041985108 


e 


ESTIMACION DE Y CONOCIDA X : pulse 
ESTIMACION DE X CONOCIDA Y : pulse 2 

va 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


x=? 10 
Y = 5.0015887? 


x =? 20 
Y = 5.5989875 


x=? 50 
Y = 6.3887057 


xXx =P? 9999 


» A La tabla ajunta muestra los valores correspondientes a dos variables 
Xe Y: 


Ajústese una curva logarítmica y estímese que valores de y corresponderán 
a los valores de x siguientes: x= 100; x= 10; x = 200. 
SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 8 


X,Y DEL DATO 1 ? 15 12.1 

X.Y DEL DATO 2 ? 25 13.4 

X,Y DEL DATO 3 ? 35 14.3 

X,Y DEL DATO 4 ? 75 16.3 

X,Y DEL DATO 5 ? 95 16.8 

X,Y DEL DATO 6 ? 125 17.6 

X,Y DEL DATO 7 ? 145 17.9 

X,Y DEL DATO 8 ? 215 18.9 

MODELO DE LINEA AJUSTADA Y = 5.1766611 + 2.5615401 XLOG(X) 
COEFICIENTE DE CORRELACION = .99985582 
COEFICIENTE DE DETERMINACION = .99971167 
VARIANZA DE LA ESTIMACION = .0019274477 


DESVIACION TIPICA DE LA ESTIMACION . 043902708 


ESTIMACION DE Y CONOCIDA X pulse 1 


ESTIMACION DE X CONOCIDA Y : pulse 2 
Pi 


VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


xXx =? 100 x =? 10 x =? 200 
Y = 16.972989 Y = 11.074825 Y = 18,748514 


Xx =? 9999 


REGRESION POTENCIAL 


introducción: 


Este programa permite ajustar, mediante el método de los mínimos 
cuadrados, una curva potencial de la forma: y = A > a una nube de puntos 
que viene dada por las coordenadas (x,y) de los puntos conocidos. 

Además de la ecuación de la linea ajustada, permite conocer el coe- 
ficiente de correlación y de determinación, asi como la varianza y la des- 
viación típica de la estima. Posteriormente permite hacer estimaciones de 


y conocido x, o de x conocido y. 


listado del programa: 


10 REM IRRIRRRSROOCORICIOIOIOIIOIIIOIOIIOIIIIIIIOIIIRIIIIOIIOIOIICOAAAAAAAAA 
20 REM 


30 REM REGRESION POTENCIAL 

40 REM 

50 REM IRRRISIAICIIIOIOIAIIOISIIIIIIIIOIIOISAIRORIROIOIOORROIOOROIOOROIOIOIOIA 
100 PRINT 


110 PRINT "NUMERO DE-DATOS CONOCIDOS”; 
120 INPUT N 

130 DIM S(5) 

140 FOR J=1 TO S 

150 S(J)=0 

160 NEXT J 

170 PRINT 

179 REM - ENTRADA DE DATOS - 

180 PRINT "INTRODUZCA LAS COORDENADAS X.Y DE CADA PUNTO" 
190 PRINT 

200 FOR I=1 TO NM 

210 PRINT "X,Y DEL DATO";1;5 

220 INPUT X,Y 

225 X=LOG(X) 

230 Y=LOG(Y) 

240 S(1)=S(1)+X 

250 S(2)=S(2)+Y 

260 S(3)=S(3)+Xx"2 

270 S(4)=S(94)+Y"2 

280 S(5)=S(5)+XXY 

290 NEXT 1 

299 REM - CALCULO DE LOS TOEFICIENTES DE LA ECUACION DE REGRESION - 
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-__x_IA<AI>A>,]EOA14141 


300 C=N*S(5)-S(2)XS(1) 
310 D=N*S(3)-S(1)2 


320 B=C/D 

330 A=(S(2)-BXS(1))/N 

340 PRINT 

349 REM -SALIDA DE RESULTADOS - 

350 PRINT "MODELO DE LINEA AJUSTADA Y ="3 EXP(A)5"X X “"3B 


360 S5(4)=S(4)-S(2)72/N 

370 S(1)=B*(S(5)-S(1)%XS(2)/N) 

380 S(2)=S(4)-S(1) 

390 S(5)=S(1)/S5(4) 

400 PRINT "COEFICIENTE DE CORRELACION 

410 PRINT "COEFICIENTE DE DETERMINACION 

420 PRINT "VARIANZA DE LA ESTIMACION 

430 PRINT "DESVIACION TIPICA DE LA ESTIMACION 
440 PRINT 

450 REM -INTERPOLACION- 
460 PRINT 

470 PRINT "ESTIMACION DE Y CONOCIDA X 
480 PRINT "ESTIMACION DE X CONOCIDA Y 
490 INPUT P 

500 IF P=2 THEN 580 

510 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)" 
520 PRINT 

530 PRINT "X ="; 

540 INPUT X 

550 IF X=9999 THEN 700 

560 PRINT "Y ="¡EXP(A)XX"B 

570 GOTO 520 

580 PRINT "VALORES ESTIMADOS: (entre 9999 para acabar el programa)” 
590 PRINT 

600 PRINT "Y ="; 

610 INPUT Y 

620 IF Y= 9999 THEN 700 

630. PRINT "X ="3 (Y/EXP(A))”(1/B) 

640 GOTO 590 

700 END 


"3SQR(S(5)) 
"35(5) 
"35(2)/(N-2) 
"3SOR (S (2) /(N-2)) 


pulse 1" 
pulse 2" 


ejercicios resueltos: 


1. Como consecuencia de la observación de un experimentos se han obte- 
nido los siguientes puntos: (6; 34); (8; 90); (10; 160); (12; 450). 
Ajústese una curva potencial y estímese que valores de y corresponderán a 
los siguientes valores de x: x= 2, x= 4, x = 20. 

SOLUCION: 


NUMERO DE DATOS CONOCIDOS? 4 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 6 34 

X.Y DEL DATO 2 ? 8 90 

X,Y DEL DATO 3 ? 10 160 

X.Y DEL DATO 4 ? 12 450 

MODELO DE LINEA AJUSTADA Y = .053065158 * X ” 3.5750813 


COEFICIENTE DE CORRELACION 


. 98879663 
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COEFICIENTE DE DETERMINACION = .27771878 
VARIANZA DE LA ESTIMACION = .032015466 
DESVIACION TIPICA DE LA ESTIMACION = .19752333 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
A 


VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


X=? 2 

Y = .6324354 
Xx => 4 

Y = 7.5374228 
Xx =? 20 


Y = 23772.3737 


Ze La tabla adjunta muestra los valores de dos variables X e Y. 


ARA 
| vartabie y [40.23 135.67 320.65 640.68 1234.34 1689.78 


Ajústese una curva potencial y estímese que valores de x corresponderán 


a los siguientes valores de y: y = 100, y = 500, y = 1000. 
SOLUCION: 
NUMERO DE DATOS CONOCIDOS? 6 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 


X.Y DEL DATO 1 ? 2 40.23 

X,Y DEL DATO 2? 3 135.67 

X,Y DEL DATO 3 ? 4 320.65 

X.Y DEL DATO 4 ? 5 640.68 

X,Y DEL DATO 5? 6 1234.34 

X.Y DEL DATO 6 ? 72 1689.78 

MODELO DE LINEA AJUSTADA Y = 4.8658196 * X ” 3.0374737 
COEFICIENTE DE CORRELACION = .99934303 
COEFICIENTE DE DETERMINACION = .2986865 
VARIANZA DE LA ESTIMACION = .0032866898 
DESVIACION TIPICA DE LA ESTIMACION = .057329659 


ESTIMACION DE Y CONOCIDA X 
ESTIMACION DE X CONOCIDA Y 
22 

VALORES ESTIMADOS: (entre 9999 para acabar el programa) 


pulse 1 
pulse 2 


Y =? 100 
x= 2.7053021 


Y =? 500 ] 
Xx = 4,.5954849 


Y =? 1000 
= 5.7734675 


x 


REGRESION POLINOMIAL 


introducción: 


Este programa permite ajustar, mediante el método de los mínimos 


cuadrados, un polinomio de grado G de la forma: 
2 G 


=a +a,X+ta, XxX +.o.o.c+ta 
y (o) 1 2 


a un conjunto de N puntos conocidos por sus coordenadas (Xx, y). 

Al ejecutar el programa se imprimen cada uno de los coeficientes 
de la ecuación anterior, los coeficientes de correlación y de determina- 
ción, asi como la varianza y la desviación típica de la estima. 

Posteriormente y una vez que se conoce la ecuación del polinomio 
ajustado, el programa permite realizar estimaciones de y para valores cono 
cidos de xXx. 

El numero de puntos conocidos N ha de ser mayor estrictamente que 
G+1, ya que de lo contrario, en la linea 740 obtendriamos I negativo o nu 
lo , provocando un error aritmético al sustituir en la linea 810. 


listado del programa: 


10 REM HR III III A: 
20 REM 

30 REM AJUSTE POLINOMIAL 

40 REM k 

50 REM IRIICIOAIIIIOIIIIIIIIIIIIOIIIIOIIIIIIIRIIRIIOIIIAA 
100 PRINT 

109 REM - ENTRADA DE DATOS - 

110 PRINT "NUMERO DE PARES CONOCIDOS"; 

120 INPUT N 

130 PRINT "GRADO DEL POLINOMIO QUE DESEA AJUSTAR"; 

140 INPUT G 

145 IF N<=G+1 THEN GOTO 950 

150 DIM X(N),Y(N),A(G+2),B(2X*G+1),C(G+1,G+2) 

160 B(1)=N 

170 PRINT 

180 PRINT "INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO"5 

190 PRINT 

200 FOR I=1 TO N 


40 
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210 
220 
230 ' 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
320 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


610 
620 
629 
630 
640 
650 
660 
670 
679 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
silo 
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PRINT "X.Y DEL DATO";1; 
INPUT X(I),Y(I) 

FOR J=2 TO 2*G+1 
B(J)=B(J)+X(1)7* (J-1) 
NEXT J 

FOR K=1 TO G+1 
C(K,G6+2)=A(K)+Y(1I)XX(1)* (K-1) 
A(K)=C(K,G+2) 

NEXT K 

A(G+t2)=A (G+2)+Y(1)2 
NEXT 1 

FOR J=1 TO G+1 

FOR K=1 TO G+1 
C(J,K)=B(K+J-1) 


NEXT K 

NEXT J 

FOR J=1 TO G+1 

K=J 

1F C(K,J)=0 THEN 580 
FOR I=1 TO G+2 


D=C(J, 1) 

C(J,1)=C(K,1) 

C(K,1I)=D 

NEXT 1 

H=1/C(J,J) 

FOR I=1 TO G+2 

CJ, 1)=HXC(J,1) 

NEXT I 

FOR K=1 TO G+1 

IF K=J THEN 550 
H=-C(K,J) 

FOR I=1 TO G+2 

C(K, 1)=C(K, I)+HXC(J, 1) 
NEXT I 

NEXT K 

NEXT J 

GOTO 620 

k=kK+1 

IF K<=G+1 THEN 390 
PRINT "LA SOLUCION NO ES UNICA" 


GOTO 960 
PRINT 
REM - SALIDA DE RESULTADOS - 


FOR J=0 TO G 

PRINT "COEFICIENTE DE GRADO";J;"="3C(J+1,G+2) 
NEXT J 

PRINT 

PRINT 

REM - CALCULO DE LOS PARAMETROS DEL AJUSTE - 


L=0 

FOR J=2 TO G+1 

M=A (J)-B(JIXAA (1) /N 
L=L+C(J,G6+2)%XM 


NEXT J 

P=A (G+2)-A(1)72/N 

I=N-G-1 

H=P-L 

R=L/P 

PRINT 

PRINT "COEFICIENTE DE CORRELACION ="3SQR(R) 
PRINT "COEFICIENTE DE DETERMINACION ="5R 

PRINT "VARIANZA DE LA ESTIMA ="3H/1 
PRINT "DESVIACION TIPICA DE LA ESTIMA. =";SQR(H/I) 


220 
829 
830 
840 
850 
260 
2870 
88s0 
290 
900 
910 
920 
930 
940 
950 
960 


PRINT 


REM 


PRINT 


IN 


PRINT 
PRINT "Xx 
INPUT Xx 
IF X=9999 THEN 960 
L=C(1,6+2) 

FOR J=1 TO G 
L=L+C(J+1,G+2)XX"J 
NEXT J 
PRINT * 
PRINT 
GOTO 840 


PRINT "NO SE PUEDE AJUSTAR MEDIANTE UN POLINOMIO DE GRADO";G 


END 


TERPOLACION 


="5L 


"VALORES ESTIMADOS: 


(ENTRE 92999 PARA ACABAR EL PROGRAMA) " 


ejercicios resueltos: 


J.R.VIZMANOS 


1. Ajustar una parábola a los datos siguientes: 
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Estimar que valor le corresponderá a y para los valores de x siguientes: 
x = 100. 
SOLUCION: 


X = 


75, 


NUMERO DE PARES CONOCIDOS? >? 
GRADO DEL POLINOMIO QUE DESEA AJUSTAR? 2 


31 
50 
2? 
96 
112 
130 
162 


COORDENADAS X,Y DE CADA PUNTO 


DE GRADO O =-364.00004 
5.8333347 
.041666655 


INTRODUZCA LAS 

X,Y DEL DATO 1 ? 50 

X,Y DEL DATO 2 ? 52 

X.Y DEL DATO 3 ? 54 

Xy Y DEL DATO 4 ? 56 

X.Y DEL DATO 5 ? 58 

X,+Y DEL DATO ó ? 60 

X.Y DEL DATO 7 ? 62 
COEFICIENTE 

COEFICIENTE DE GRADO 1 
COEFICIENTE DE GRADO 2 = 
COEFICIENTE DE CORRELACION 
COEFICIENTE DE DETERMINACION 


VARIANZA DE LA ESTIMA 


DESVIACION TIPICA DE LA ESTIMA 


. VALORES ESTIMADOS: 


x=? 
Y = 


?5 


307. 


875 


.97630943 
-. 929263248 
22.916667 
4.7871355 


(ENTRE 9999 PARA ACABAR EL PROGRAMA) 
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x=? 100 
Y = 635.99998 


x=? 9999 


2. Ajustar una cúbica a los datos siguientes: (4, 12), (5, 16), (6, 21) 
(7, 25), (8, 31). Posteriormente, estimar los valores de y Correspondientes 
parax=6, x= 10, x= 20. 

SOLUCION: 


NUMERO DE PARES CONOCIDOS? 5 
GRADO DEL POLINOMIO QUE DESEA AJUSTAR? 3 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 
X,Y DEL DATO 1 ? 4 12 
X,Y DEL DATO 2? 5 16 
X,Y DEL DATO 3? 64 21 
X.Y DEL DATO 4 ? 2 25 
X,Y DEL DATO 5? 8 31 


COEFICIENTE DE GRADO O =-16.214296 
COEFICIENTE DE GRADO 1 = 10.845243 
COEFICIENTE DE GRADO 2 =-1.2857152 
COEFICIENTE DE GRADO 3 = .083333384 


COEFICIENTE DE CORRELACION = .9991953 


COEFICIENTE DE DETERMINACION = ¿99839125 
VARIANZA DE LA ESTIMA = .35714281 


DESVIACION TIPICA DE LA ESTIMA .59761426 


VALORES ESTIMADOS: (ENTRE 9999 PARA ACABAR EL PROGRAMA) 
Xx 
Y = 20.571429 


x=? 10 
Y = 47,000003 


=? 20 
= 353.07157 


X=? 9999 


3. Ajústese un polinomio de grado 6* al conjunto siguiente de datos: 
(2, 7), (3, 9), (4, 12), (5, 12), (6, 12), (7, 14), (8, 17), (9, 18), 
(10, 21). 
¿Que valores de y se estiman .para puntos que tienen: x = 10, x = 20, x= 25? 
SOLUCION 


.. 


J.R.VIZMANOS 


NUMERO DE PARES CONOCIDOS? 9 
GRADO DEL POLINOMIO QUE DESEA AJUSTAR? ó 


INTRODUZCA LAS COORDENADAS X,Y DE CADA PUNTO 
X,Y DEL DATO 1 ? 2 ? 

X,Y DEL DATO 2 ? 3 2 

X.Y DEL DATO 3 ? 4 12 

X,Y DEL DATO 4 ? S 12 

X,Y DEL DATO S ? 6 12 

X,Y DEL DATO 6 ? 2? 14 

X,Y DEL DATO 7 ? 8 Az 

X, Y DEL DATO 8 7? 9 is 

X, Y DEL DATO 9 ? 10 21 
COEFICIENTE DE GRADO O = 141.19584 
COEFICIENTE DE GRADO 1 =-189.70576 
COEFICIENTE DE GRADO 2 = 102.17999 
COEFICIENTE DE GRADO 3 =-26.894301 
COEFICIENTE DE GRADO 4 = 3.716685 
COEFICIENTE DE GRADO 5 =-.25849362 
COEFICIENTE DE GRADO é6 = .0071361728 


COEFICIENTE DE CORRELACION = ,99927832 
COEFICIENTE DE DETERMINACION = .99995665 
VARIANZA DE LA ESTIMA = .0034298301 


DESVIACION TIPICA DE LA ESTIMA 


.058564751 
VALORES ESTIMADOS: (ENTRE 9999 PARA ACABAR EL FROGRAMA) 
x=? 10 


Y = 20.997296 


x=? 20 
Y = 46253.754 


x=? 25 


Y = 30869%6.8 


x=? 9999 
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TOMO 1 - ALGEBRA Y GEOMETRIA 
ALGEBRA 


1.- Sistemas de numeración. 1.1 Cámbio de base de sistema de numeración. 1.2 Operaciones en cualquier 
sistema de numeración. 

2.- Ecuaciones diofánticas. 2.1 Ecuaciones diofánticas del tipo: Ax + By = C. 2.2 Ecuaciones diofánticas del 
tipo: x? — y? = A. 2.3 Ecuaciones diofánticas del tipo: x? + y? =2?. 2.3.1 Números pitagóricos consecutivos. 
2.3.2 Ternas pitagóricas. 

3.- Divisibilidad. 3.1. Descomposición de un número en factores primos. 3.2 M.C.D. y M.C.M. de dos núme- 
ros. 3.3 M.C.D. y M.C.M. de tres números. 3.4 Lista de números primos. 3.5 Formación ordenada de los 
divisores de un número. 3.6 Número de divisores de un número (suma y producto). 3.7 Números perfec- 
tos pares. 3.8 Números amigos. 3.9 Números de Mersenne. 3.10 Números de Fermat. 3.11 Múltiplos de 
un número K. 3.12 Múltiplos de K entre dos números dados. 3.13 Múltiplos comunes de dos números. 

4.- Números congruentes. 4.1 Clases de restos módulo M. 4.2 Exponente de P en MI (regla de Legendre). 
4.3 Restos potenciales. 4.4 Cálculo de la última cifra de una potencia. 4.5 Cálculo del resto de dividir una 
potencia por M. 4.6 Restos cuadráticos. 

5.- Combinatoria. 5.1 Factorial de un número. 5.2 Número de cifras del factorial de un número. 5.3. Facto- 
rial de un número con todas sús cifras. 5.4 Combinaciones sin repetición. 5.5 Variaciones sin repetición. 
5.6 Formación ordenada de las variaciones sin repetición. 5.7 Permutaciones sin repetición. 5.8 Forma- 
ción ordenada de las permutaciones sin repetición. 5.9 Combinatoria sin repetición. 5.10 Combinaciones 
con repetición. 5.11 Variaciones con repetición. 5.12 Formación ordenada de las variaciones con repeti- 
ción. 5.13 Permutaciones con repetición. 5.14 Triángulo de Tartaglia. 5.15 Binomio de Newton. 

6.- Polinomios. 6.1 Valor numérico de un polinomio. 6.2 Suma y diferencia de polinomios. 6.3 Producto de 
un escalar por un polinomio. 6.4 Producto de un polinomio por el binomio (x + a). 6.5 Produc' o de polino- 
mios. 6.6 Regla de Ruffini. 6.7 Cociente de polinomios. 

7.- Espacios vectoriales. 7.1 Coordenadas de un vector respecto de una base. 7.2 Cambio de base. 

8.- Matrices y Determinantes. 8.1 Suma de las filas y las columnas de una matriz. 8.2 Matriz transpuesta. 
8.3. Suma y diferencia de matrices. 8.4 Producto de un escalar por una patriz. 8.5 Producto de matrices. 
8.6 Potencia de una matriz. 8.7 Determinante de una matriz cuadrada. 8.8 Matriz inversa. 8.9 Descompo- 
sición de una matriz cuadrada en suma de dos matrices una simétrica y otra hemisimétrica. 8.10 Resolu- 
ción de sistemas de ecuaciones lineales. 8.11 Ecuación característica de una matriz. 8.12 Valores pro- 
pios de una matriz. 8.13 Vectores propios de una matriz. 


GEOMETRIA 


1.- Geometría elemental. 1.1 Areas de triángulos y cuadriláteros. 1.2 Longitudes y áreas en la circunferen- 
cia. 1.3 Relaciones métricas en el triángulo. 1.4 Polígonos regulares: ángulos y diagonales. 1.5 Polígonos 
regulares: área en función del lado. 1.6 Polígonos regulares: área en función del radio de la circunferencia 
circunscrita. 1.7 Areas y volúmenes de los poliedros regulares. 1.8 Areas y volúmenes de cuerpos geo- 
métricos. 

2.- Plano afín. 2.1 Operaciones con vectores en el plano afín. 2.2 Cambio de sistema de referencia en el pla- 
no afín. 2.3 Determinación de rectas en el plano afín. 2.4 Incidencia, paralelismo e intersección en el pla- 
no afín. 

3.- Plano afín euclideo. 3.1 Conversión de ángulos. 3.2 Operaciones con vectores en el plano afín euclideo. 
3.3 Angulos y bisectrices de rectas en el plano afín euclideo. 3.4 Distancias en el plano afín euclideo. 
3.5 Areas en el plano afín euclideo. 3.6 Cálculo de puntos notables en un triángulo. 3.7 Resolución de 
triángulos rectángulos. 3.8 Resolución de triángulos cualesquiera. 

4.- Transformaciones en el plano. 5.1 Movimientos en el plano. 5.2 Homotecia en el plano. 5.3 Semejanza 
en el plano. 

5.- Cónicas. 5.1 Circunferencia. 5.2 Potencia de un punto respecto de una circunferencia. 5.3 Elipse. 5.4 Hi- 
pérbola. 5.5 Parábola. 5.6 Clasificación y reducción de cónicas. 

6.- Espacio afín. 6.1 Operaciones con vectores en el espacio afín. 6.2 Cambio de sistema de referencia en el 
espacio afín. 6.3 Determinación de rectas en el espacio afín. 6.4 Determinación de planos en el espacio 
afín. 6.5 Incidencia, paralelismo e intersección en el espacio afín. 

7.- Espacio afín euclideo. 7.1 Operaciones con vectores en el espacio afín euclideo. 7.2 Angulos en el espa- 
cio afín euclideo. 7.3 Distancias en el espacio afín euclideo. 7.4 Areas y volúmenes en el espacio afín eu- 
clideo. 

8.- Transformaciones en el espacio. 8.1 Movimientos en el espacio. 8.2 Homotecia en el espacio. 8.3 Se- 
mejanza en el espacio. 
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